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SYSDATA III 
Aqui, tudo o quo Voce 
do urn grande micro. 

Compatlve! com oTRS-8f> 

Modelo III da Radio Shack. 

Cabinets, tec la do e CPU em 
m &du las ifid epcnd entes. 

Vcrsotis de 64 a 128 Kbytes tie 
KAM, 16 KBytes du ROM. 

Teel ado prof issional com 
mim£rico reduzido e4 teclas 
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Slslema operacional de disco 
DOS HI on CP/M 2,2. 

Caracteres graficos. 

Video cum paste com 18 MHZ 
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Saida para impressora 
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SYSDATA III 
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VA PROCURAR SUATURMA EM UM CLUBE DE MICROS 

Reportagem sobre clube de usucirios. Como s§o formados, os objetivos e 
assuntos tratados nas reuniSes. Voce pode participar de um deles pagando 
ou gratuitamente. E ainda dicas para entrar em contato com clubes de 
Sinclair, Apple, TRS-80 e Color. 




EM DIA COM AS DUPLICATAS 

Toda empresa sabe a importance de manter, nesses dias de crise, 
suas duplicatas sob rigida fiscalizapao. Com este programa, de Paulo de 
Carvalho, voce terci o controle das seguintes oppoes: vencimentos; 

N? Duplicata; Situapao; Banco/Cobrador; Sacado e Valor. 




MANTENHA O DRIVE RODANDO EM ORDEM 

Neste artigo de Jos§ Carlos Niza o usucirio encontrarS uma orientapao a 
respeito dos principals defeitos apresentados pelos drives, com dicas 
sadias sobre manutenpao preventiva e um tratamento especial para os 
disquetes. 




CBBS, UM QUADRO DE AVISOS COMUNITARIO 

O que 6, na verdade, essa forma de comunicapao entre usu£rios de 
microcomputadores? E essa a pergunta que Ricardo Weiss Muricy 
responde neste artigo, relatando como surgiram esses clubes e como 
funcionam. Ao final, uma relapao dos CBBS existentes no Brasil e no 
exterior e a maneira de entrar em contato com eles. 



TECNICA PERT - Programa de Angelo 
dos Santos Soares, para a linha Apple. 

RENUMERADOR TOPOL0GICO - 

Programa de Evandro Curvelo Hora, 
para a linha Sinclair. 

UM GERENTE PRATICO EM BANCO 
DE DADOS (II) - Programa de Ivan 
Camilo Cruz, para a linha TRS-80. 



ARQUIVO DE COMUNICADOS - 

Rodada MS, com um programa de Luiz 
Carlos Nardy para a linha Sinclair. 



BANCO DE SOFTWARE 

52 BALANCETE • 54 CONTROLE DE 
CONGELADOS. • 56 CONTROLE BANCARIO • 
59 COPY SOFT • 60 ARQUIVO-AGENDA 
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C om muita f requeue ia , tem sido discutida a utilizagao isolada do 
microcomputador como setido uma prdtica tendendo ao 
desaparecimento. Apesar de reconhecermos que o uso do 
teleprocessamento abre horizontes amplos para os que visam uma utilizagao 
mais intensa da maquina , consideramos tais generalizagoes radicais e 
perigosas , principalmente por deixar de lado os usuarios que tem no 
conhecimento do hardware e da programagao seus objetivos primeiros. 

Em recente edigao, MS tratou de questdes que envolvem o acesso as 
informagoes disponiveis nos servigos de bancos de dados. Hoje, nosso tema 
volta a ser a importancia da comunicagao para os possuidores de computadores 
pessoais. Desta vez, contudo , tratamos de uma relagao mais informal: 
as associagoes de usuarios. 

Estes clubes tem se multiplicado, visto serem uma opgao barata e 
eficiente para os que querem intercambiar programas e conhecimentos praticos. 
Seus organizadores, verdadeiros operarios de um hobby que nem sempre 
Ihes traz retorno financeiro, encarregam-se de editar pequenos bole tins, 
promover reunioes e “quebrar os galhos ,f dos socios menos iniciados. 

Tambem os organizadores dos CBBSs - outro tipo de associagdo cada vez mais 
procurada — nao tem descanso, geralmente buscando , numa fase inicial 
de funcionamento gratuito , ganhara experiencia necessaria para uma futura 
prestagao comercial dos servigos. 

Um dos bons servigos que estes clubes e CBBSs oferecem hoje aos associados 
sao os programas em arquivo , livrando-os das grandes digitagoes. A maior 
parte dos programas oferecidos sfto os ditos de “ dominio publico ”, is to e, 
publicados em revistas especializadas. Uns pedem permissffo as 
“fontes ” e mantem os creditos do autor e da publicagao ; outros simplesmente 
vao abolindo esses il detalhes ” 

A utilizagao destes programas publicos exige criterio. O objetivo dos au tores 
que se dispoem a publicar seus programas em revistas e disseminar o uso; 
nao o abuso. Oferecer o servigo da digitagao e uma coisa; tirar proveito 
comercial a revelia do autor e outra. Assimilar as tecnicas de um programa, 
adaptor e melhorar e uma coisa; copiar e assumir paternidade e lamentdvel. 

Novidades em MS: inauguramos neste numero as MICRO FI CM AS, com uma 
tabela completa de conversao. 
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UM PRODUTO MICROTEC 
COM A G ARANTI A DA 




INFORMATICA EMPRESARIAL LTDA. 



O MAIOR REVENDEDOR DE MICROCOMPUTADORES DE 1 6 BITS DO PAIS. 
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ESQUIRE 







unitron cipn 




flo compra do conjunto 
profi//ionol e do modulo 



de comunicQCQO,voce 
gonho o ewclu/ivo /oftware 
decomunicocoocom 
o projeto Cirandao 



do Embratel. 



conjunro pROFi/zionm • moouLO comunocoE/* 

flpn, ch/co. moniTOR in/reum. placa R/-232. 
impR. momcA e iaterface/ mooEfn e /oftujare 




INFORMATICA EMPRESARIAL LTDA. 

O ftlfllOR REVEflOEDOR OE miCROCOmPUTHDORE/ DE 16 BIT/ DO Pfll/. 



Ruq /ete de /etembro, 99 - ll.° andar. CEP 20050 RJ - Tel.: 24-7007 



ESQUIRE 



Dou-lhe uma: Pronta entrega! 
Dou-lhe duas: Atendimento professional! 
Dou-lhe ties: Melhor preqo! 
Negocio iechado. 
Compumicro. O melhor em micro 
pelas melhores condigoes. 

Nexus 1600-PC2001- 
Micioengenho 2-Unitron AP II 




INFORMATICA EMPRESARIAL LTDA. 



OMAIOR REVENDEDOR DE MICROCOMPUTADORES DE 16 BITS DO PAIS. 

Rua Sete de Setembro. 99-11.° andar - Tel: PBX (02 1 ) 224-7007 - CEP 20050 - Rio de Janeiro - RJ 



ESQUIRE 








O sorteado deste mes, que ir£ ganhar uma 
assinatura anual de MICRO SISTEMAS 
6 Orlando Rodrigues Pinto, do Rio de 
Janeiro. 



AOS USUAmOS DE RINGO 



£ com imensa satisfa^So que novamente 
Ihes escrevo, desta vez para parabenizb-los 
pelo projeto MICRO BUG. 

Possuidor que sou de um Ringo "R-470", 
ao digitar o MICRO BUG verifiquei, como 
6 de seu conhecimento, que alguns cbdigos 
de caracteres do Ringo foram modificados, 
razao pela qual Ihes escrevo para que infor- 
mem aos vossos leitores, possuidores do Rin- 
go, que na implementagSo do comando E 
(MICRO SISTEMAS n? 33, pag. 56), o 
valor que deve ser adotado no enderego 
7C79 deve ser F9 ao inv^s de EA. 

A modificagSo no teclado do Ringo em 
relap^o ao TK-85 implica em modifica- 



TK-85 


RINGO 


SHIFT 3 


SHIFT W 


SHIFTS 


SHIFT 3 


SHIFT E 


SHIFT D 


SHIFT 4 


SHIFT T 


SHIFT D 


SHIFT E 


SHIFT G 


SHI FT 4 


SHIFT A 


SHIFTS 


SHIFT F 


SHIFT R 


SHIFT Q 


SHIFT 2 


SHIFT 1 


SHIFT 1 


SHIFT 9 


GRAPHICS 



Acreditando ter colaborado com os pos- 
suidores do micro Ringo neste excelente 
trabalho empreendido por MICRO SISTE- 
MAS, quero aqui deixar meus sinceros agra- 
decimentos pela oportunidade que me tern 
dado de aprender, com a publicap§o de tra- 
balhos verdadeiramente profissionais. 
Orlando Rodrigues Pinto 
Rio de Janeiro-RJ 



FORTRAN NO CP-300 



Gostaria de saber das possibilidades de 
rodar FORTRAN e PASCAL no micro 
CP-300 da Prol6gica: que perifbricos seriam 
necessbrios para issoondeobter tal software? 
Jorge G. Larangeira 
Porto Alegre-RS 

De acordo com o nosso procedi men to 
habitual , remetemos suas perguntas para o 
fabricante. Eis a resposta da empresa: 

"£ possfvei rodar FORTRAN e PASCAL 
no seu CP-300. Para tonto, voc€ deve possuir 
o SM-300 o cartao Controlador-300 e os 
drives. Depois deve procurer em so ftwa re- 
houses um programa compiled or FOR- 
TRAN ou PASCAL. 

A Pro/dgica realizou uma pesquisa entre 
software-houses e localizou programas 
FOR T RA N nas seguintes casas: 

MICRO BYTE — Rua Buenos Aires, 41 
— 39 andar, Rio de Janeiro. 

MONK — Rua Augusta, 2.690 — 29 an- 
dar — Loja 318, SSo Paulo." 

Sidnei Stife/mann 

Coord, de Prod uto /Marketing de CP’S 



usuArio sofredor 



Sou um dos milhares de usu4rios de um 
micro compatfvel com o TRS-80 modelo I 
e sofro vendo, a cada dia que passa, a quan- 
tidade de bons softwares desenvolvidos para 
o modelo III. At6 ent§o, estou restrito a 
programas ultrapassados, sem poder desfru- 
tar de uma melhor planilha de c^lculos, base 
de dados, enfim, de programas que rodam 
nos compatfveis ao modelo III. 

Gostaria de que, se algum colega tiver 
conhecimento de dados para a conversao do 
Enhanced Visicalc, do Profile III Plus e de 
programas similares que possam rodar nos 
compatfveis ao modelo I, os publicassem em 
MICRO SISTEMAS. 

Gostaria, tambbm, de entrar em contato 
com os possuidores de micros compatfveis 
com o LNW 80 para troca de softwares espe- 
cfficos desenvolvidos especialmente para 
este micro. Meu enderego 6: Caixa Postal 
239 - Cabo Frio, CEP 28900 - RJ, 

Mario Ramos Vieira Filho 
Cabo Frio-RJ 
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A DEFESA DO "SUSPEITO 



Fiquei estarrecido quando li na Micro 
Sistemas de fev/85 que a COMPUMAX 
MICROINFORMATICA faliu e levou o 
"suspeito” pacote Micro/DB. 

Gostaria imensamente de saber a fonte 
desta absurda noticia, que, al6m de inven- 
dica, 6 intencionalmente maldosa. 

A unica explicagSo plausi'vel de nossa 
"desejada" faIGncia 6 que j2 estamos causan- 
do certa preocupagSo no mercado, depois 
dos excelentes resultados que conseguimos 
nos ultimos meses. 

E quanto ao nosso produto, consultamos 
nossos clientes e conclui'mos que o nosso 
Sistema de Gerenciamento de Informagoes 
— Micro/DB foi qualificado de "suspeito" 
por causa das seguintes caracterfsticas: 

— SUSPEITO por falar portuguSs, en- 
quanto seus colegas de classe falam outros 
idiomas como ingISs ou computes; 

— SUSPEITO por ser o mais amistoso 
de sua classe, possibilitando intimidade ime- 
diata com seus usu^rios, enquanto outros 
necessitam semanas de treinamento; 

— SUSPEITO por manipular tranqiiila- 
mente valores de zilhoes enquanto outros se 
atrapalham ja no primeiro bilhao; 

— SUSPEITO por nao ser preconceituo- 
so, pois quando o Micro/DB entra para 
automatizar o escritbrio, todos poem a m§o 
nele, desde a secretdria atb o executivo. 

E para dirimir duvidas, convido os inte- 
ressados a confirmar estas caracterfsticas 
"suspeitas" de nosso best-seller, o Micro/ 
DB, em nossa sede na A v. Paulista, 1754/ 
145 (251-0471) ou em qualquer dos nossos 
clientes amigos. 

Walter Celaschi 
Diretor da Compumax 

Gostariamos de nos descu/par perante a 
empresa Compumax e nossos leitores , 
deixando claro que a nota sobre a fa/encia 
da empresa foi produto de uma informaqao 
errada levantada por nossa equipe, sem qual- 
quer segunda intenpao. 



£ DESAGRAPO / 

A finalidade desta 6 registrar o meu desa- 
grado com a polftica de economia da firma 
MICRODIGITAL Eletronica Ltda. 

Possuo um micro TIMEX 1000, com 



16K e impressora TIMEX 2040. Cansado 
do teclado de membrana e da baixa veloci- 
dade de transmissSo de dados computador/ 
gravador, resol vi adquirir, em 10/10/84 um 
TK-85 tambbm com 16K. 

Estranhei, pordm, ao ligar o novo compu- 
tador com a impressora conectada e n£o 
conseguir que o computador funcionasse. 
Entrando em contato com a Assistdncia 
Tbcnica do fabricante do micro, fui informa- 
do de que deveriam ser feitas algumas modi- 
ficagdes no meu TK, modificagbes estas que 
ndo seriam feitas em garantia, mas mediante 
o pagamento de Cr$ 45 mil. 

Ora, por que o micro tern os comandos 
COPY, LLIST e LPRINT no teclado se eles 
ndo funcionam? Porque a MICRODIGITAL 
nao faz as modificagbes no TK-85 dos pos- 
suidores de impressora (uma percentagem 
fnfima dos proprietaries deste micro) na ga- 
rantia, j4 que a firma optou por fazer econo- 
mia anulando aqueles comandos? 

Ao contr^rio da alegria que deveria ter 
sentido com a aquisipdo de um novo micro, 
fico triste por me sentir ludibriado num di- 
reito que, creio, devo ter. No entanto, ndo 
sei ainda o que fazer, se vender meu TIMEX 
conforme imaginava e continuar me sentin- 
do logrado ou passar o TK adiante e ficar 
satisfeito por ndo ter compactuado com um 
modo de agir que acho errado. 

Finalizando, gostaria de dizer que este 6 
mais um moth/o para eu apoiar a abertura 
do nosso mercado de microcomputadores 
para as f irmas estrangeiras. 

JoSo Henrique Pache de Faria 
Rio de Janeiro-RJ 

Caro Joao Henrique, aqui segue o posi - 
cionamento da Microdigital: 

"Gostarfamos de responder que o TK-85 , 
fabricado pela Microdigital, possui uma In- 
terface para ser conectada a qualquer im- 
pressora paralela existente no mercado brasi- 
leiro como a MQnica, Grafix etc. 

Quanto d sua impressora, por se tratar de 
um produto importado, existem algumas 
mod ifica odes para funcionar no TK-85 , o 
qua! nao foi feito para funcionar na impres- 
sora que vocQ possui: apoiamos os produtos 
nacionais e nao estrangeiros. " 

Ricardo Tondowski 
Re/apoes Pdblicas 



TURMA DO COMMODORE 



Possuo um microcomputador Commo- 
dore 64 e um televisor Phillips cujo modelo 
6 R/20C/31 0 e o ntimero do chassi 6 KL8. 

Para que minha TV possa funcionar tam- 
b6m no sistema de cores norte-americano 
(NTSC) o, conseqiientemente, meu compu- 
tador possa usar suas cores, eu precisaria de 
um cristal especial, o de ntimero 7,159090 
(cristal de freqii§ncia dupla), que n§o consi- 
go encontrar na minha cidade. 

Quern souber onde pode ser encontrado 
o referido cristal, 6 favor escrever para o 
enderepo abaixo: 

Rua Joaquim Lfrio, 347 - Praia do Canto 
29.000 - Vit6ria/ES 

Usu^rios do Commodore 64: estS na ho- 
ra de fundarmos um Clube para troca de ex- 
peridneias e de software! 

Maria Sylvia M. Abaurre 
Vit6ria-ES 

Envie suas corresponddncias para: ATI — 
Andlise, Teleprocassamento e Informltica 
Editora Ltda., Av. Presidents Wilson, 
165/gr. 1210, Centro, Rio de Janeiro/RJ, 
CEP 20030, SepSo Cartas/Redapfo 
MICRO SISTEMAS. 
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Com estes companheiros 
de escola,eu pa ssod e 
ano brincando. 



Olha pai, voce sabe que o maior sonho do pessoal 
da minha gerapao 6 ter um dos micros da Microdigital, que 
sao os mais fciceis de usar. Eles sao realmente fantcisticos. 

Veja, por exemplo, o TK 85: ele pode me dar a maior 
forga no estudo, tern centenas de programas disponlveis, 
albm de ter o prego mais acessivel do mercado. 

J6 o TK 2000 § incrivel, pois roda o Multicalc, a 
versao Microsoft do Visicalc®, o programa mais famoso em 
todo o mundo. E pode intercambiar planilhas com 
computadores da linha Apple®. 

O TK 85 e o TK 2000 ajudam muito, tanto quern 
estuda como quern trabalha, servindo para cadastrar 
clientes, controlar estoques, acompanhar o orgamento 
familiar, fiscalizar a conta banc^ria, estudar matem^tica, 
estatistica, e tudo o que voce puder imaginar. 

Ah, compra um pra mim! Eu prometo que s6 vou 
brincar com ele quando acabar a ligao. 



GRATIS 

- Na compra de um TK 85 voc£ ganha um livro “Basic TK” ou “Curso 
de Jogos” e os programas de TKALC e TKM AN. 

- Na compra de um TK 2000 II vocO ganha o livro “Conhecendo e 
Utilizando o TK 2000” e os programas Multicad e Fliperama. 



TK 2000 11-64 K 



® Marca registrada da Visicorp. 



®Marca registrada do Apple Computer. 
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computadores pessoais 





A imagem do usuario de computador fechado 

em seu laboratorio hoje e folclore, e quem quer saber mais 

so tern uma saida: enturmar-se 



Va procurar 
sua turma em um 
clube de micros 



U ma comunidade de intercsscs 
comuns que pode chegar ate 
o final do ano a centenas de 
milhares de pessoas nSo con- 
seguird avan^ar satisfatoriamente em 
conhecimentos se seus interesses agirem 
isoladamente. O volume de informacOes 
necessarias para o melhor aproveitamen- 
to dos micros exige o intercambio entre 
os usudrios. Em fun 95 o disso surgiram 
os clubes e, mais recentemente, entida- 
des com estrutura comercial reunindo 
grupos que se identificam por seus 
equipamentos, aplica 9 oes especificas ou 
pelo simples gosto por jogos. Mas sem- 
pre com um objetivo comum, aprender 
mais. 

A partir de 1980, quando a Informd- 
tica come 90 u a se desenvolver no pais, 
com o surgimento dos primeiros micros 
nacionais, dezenas de clubes foram for- 
mados, ao lado de uns poucos ja exis- 
tentes e que reuniam os pioneiros dos 
equipamentos pessoais, entffo importa- 
dos. Deles, muitos j i n 2 o existem. E 
dentre os que sobreviveram, aiguns 
estafo tomando novos rumos, deixando 
de lado o cardter de introdutores ao 
sistema de processamento de dados para 
ocupar uma posi 95 o mais elevada: a 
de forum para debates a respeito de lin- 
guagens, sistemas e aplica 90 es. Mas para 
os usuarios que estao come 9 ando ainda 
existem clubes, os cursinhos e a eventual 
inicia93o oferecida por quem vende o 
equipamento. 

HOJE MICRO fi VOLKSWAGEN 

Apenas para exemplificar a antiga 
fun 9 So dos clubes, o medico Luis Ernes- 
to Pellanda, que fundou em novembro 
de 1979, em Porto Alegre, o Apple Clu- 
be do Brasil, lembra que o pessoal na 



epoca mal conhecia um equipamento, as 
vezes o danificava por desconhecer 
praticamente o sistema de funcionamen- 
to. Em diversas ocasiOes, ele pr 6 prio foi 
acordado de madrugada por um socio 
de outro Estado para esclarecer dtividas 
sobre o motivo de um micro nao funcio- 
nar. E afirma que a situa 9 ao hoje 6 
diferente: 

— Agora o micro 6 um Volkswagen, 
qualquer um sabe fazer ele funcionar, 
bastando apenas ler o manual do fabri- 
cate. 

Por essa raz5o, Pellanda diz que a 
atividade dos clubes mudou um pouco. 
0 dele chegou a reunir 120 socios, nu- 
mero que estd agora em tomo de 50, 
apenas no Rio Grande do Sul. Em Por- 
to Alegre o pessoal continua se reunindo 
periodicamente, na segunda ter 9 a-feira 
de cada mes em um restaurante, onde o 
proprietdrio cede espa 90 para a instala- 
gSo de um equipamento e a conversa 
informal. 

Se antes os socios buscavam informa- 
90 es elementares a respeito do funcio- 
namento das mdquinas, quase todas 
importadas, hoje estao mais exigentes. 
Trocar pequenos programas 6 uma fun- 
950 cada vez mais esporadica. O tempo 
agora e utilizado em debates a respeito 
do hardware dos micros e de software 
ou uma aplica 9 &o que resulte em melhor 
aproveitamento dos computadores, ja 
que boa parte do clube 6 formada por 
profissionais liberais que empregam o 
equipamento em suas atividades. 

Da mesma forma como em Porto 
Alegre, o nucleo do Apple Clube do Bra- 
sil do Rio ja atingiu um estagio em que 
seus integrates estao buscando infor- 
ma 90 es mais profundas e mantendo 
um relacionamento homem / mdquina 
em mvel mais avan 9 ado, garante Heitor 



Lira, seu presidente. Atualmente o clu- 
be reune 70 sdcios que pagam anual- 
mente 2,5 ORTN, dinheiro empregado 
em material para informar mensal- 
mente a respeito das reunites. 0 nticleo 
do Rio funciona hi cerca de tres anos e 
foi criado por sugestao de Luis Ernesto 
Pellanda. Suas reunites is vezes sao 
freqiientadas por socios de outros nu- 
cleos, como de Brasilia e Belo Hori- 
zonte. 

Em Santo Andrd, municipio da Gran- 
de Sao Paulo, Walmyr Garbin criou hi 
cerca de sete meses o Apple Magic Clube, 
que j i reune quase 30 associados. Eles 
contribuem com uma taxa mensal de 
CrS 30 mil, o que garante o direito de 
retirar dois programas pelo periodo de 
15 dias. Walmyr, que mexe com compu- 
tadores hi dois anos e da aulas de proces- 
samento de dados, diz que o clube, como 
e normal, esta ainda enfrentando dificul- 
dades para melhor orienta 95 o dos asso- 
ciados sobre problemas tecnicos. O 
Apple Magic dispOe de quase uma cente- 
na de programas, estoque ampliado 
constantemente. Aldm do emprestimo 
aos s 6 cios, o clube tambem troca e co- 
mercializa programas. 

Na Microcomp, em Sao Paulo, uma 
loja de micros, funciona outro clube, 
voltado especificamente para usuarios 
de equipamentos compativeis com Ap- 
ple. Os socios pagam uma taxa de 4 
ORTN para matrfcula e 1 ORTN por 
mes, com direito a retirar tres programas 
mensalmente, sendo dois aplicativos, 
que podem ficar com eles durante 30 
dias, 

COLOR, EM FASE DE EXPANSAO 

Os clubes Color, talvez por serem in- 
tegrados por usudrios que durante muito 



tempo ficaram esquecidos no mercado, 
apresentam boa organiza 95 o. E o caso 
de dois deles - Rio Color Clube e TRS- 
80 Color Clube - ambos do Rio, que 
agora estao em fase de fus5o, formando 
6809 Color Clube, reunindo nada menos 
de 280 socios cadastrados, que pagam 
mensalidades de CrS 2 mil. 

O mais forte deles e o TRS-80 Co- 
lor Clube. Francisco Correa, que o vi- 
nha dirigindo, lembra que quando co- 
ngou a usar seu micro importado da 
Radio Shack, passou a procurar alguem 
que tivesse equipamento similar para 
troca de experiences. O primeiro deles 
foi Alfredo Troncoso, de Campinas. Aos 
poucos foram surgindo novos interessa- 
dos em compartilhar os conhecimentos 
que cada um obtinha com seus equipa- 
mentos. Com o lan 9 amento do Color 
64 da Novo Tempo, hoje fabricado pela 
empresa carioca LZ, e do micro da 
Codimex, foi crescendo o numero de s 6 - 
cios, que tende a aumentar mais ainda 
com o surgimento do CP-400 e do TKS- 
800, respectivamente fabricados pela 
Prologica e Microdigital. E diz: 

— Basta dizer que em 1984 foram 
vendidas 500 mdquinas e a previsao da 
Prologica e negociar outras 10 mil ate 
o final de 1985. 

Basicamente como em outros clubes 
com reunites periodicas, no TRS-80 
Color os socios trocam experiences, ti- 
ram suas duvidas, promovem inlercam- 
bio de software e suporte bdsico. Fran- 
cisco Correa diz que precisa se afastar 
como diretor, passando a freqiienta-lo 
apenas como socio, pois preve que com 
o incremento de associados nao lhe so- 
Drara tempo para a assistencia que pres- 
tava, desde redator do boletim bimensal 
editado pelo clube ate orientador para 
pequenos consertos. Correa, dono de 
uma vasta biblioteca de software para 
equipamentos Color, pretende dedicar 
mais tempo para aprimorar conhecimen- 
tos e mesmo comercializar seus produ- 
tos, pois acha que chegou tambem o 
momento de obter retorno financeiro 
para tudo 0 que investiu, numa ativida- 
de que a cada dia se torna mais profis- 
sional. 

O medico Diogenes Alvarenga dirigiu 
durante muito tempo o Rio Color Clu- 
be, tambem formado por usudrios de 
equipamentos originais Color e dos com- 
pativeis nacionais. Reunindo-se mensal- 
mente, os socios, que pagam uma taxa 
simbolica de CrS 2 mil por mes, discu- 
tem em um casanfo de Botafogo, onde 
funciona uma clinica mddica, novidades 
sobre software, trocam programas e su- 
porte bdsico. 

Mais recentemente o clube vem dedi- 
cando aten 9 ao especial para os sistemas 
de comunica 9 ao. Um dos associados 
mais ativos nesse movimento 6 o medico 
Joao Roberto Amim, criador do CBBS 
do Amin. Foi a forma similar de ativi- 



dade entre um e outro que levou a fusao 
do Rio com o TRS num so clube. 

Em fevereiro, quando foram criadas 
as bases para o 6809 Color Clube houve 
a I Mostra de Usudrios de Computado- 
res, realizada no Hotel Gloria, no Rio, 
com a participa 9 ao de quase uma cen- 
tena de pessoas. E os objetivos da nova 
agremia 9 ao sao reflexos dos dois clubes 
que o antecederam. Os socios com co- 
nhecimentos mais avan 9 ados continua- 
rdo trocando ideias sobre hardware, blo- 
queios de mdquinas e sistemas operacio- 
nais. Para os novos que forem chegando, 
garante Diogenes Alvarenga, havera 
sempre quem lhes de as primeiras no- 
90 es a respeito de processadores de tex- 
to, gerenciadores de bancos de dados, 



planilhas eletronicas, programas de co- 
munica 9 ao, temas que tambem nao fal- 
tam durante o encontro mensal. 

CHAMANDO POR CAIXA POSTAL 

E o usudrio que vive numa remota ci- 
dade da Amazonia? Ele ficard isolado, 
carente de informa 90 es sobre software, 
aplicativos e sistemas? Claro que nao. 
Em fun 9 do desse usudrio e de outros 
residentes em pequenas cidades do in- 
terior, e mesmo em grandes capitais, 
existem os clubes com atividades por 
correspondence, chamados pelas caixas 
postais. E funcionam bcm. 

Numa linha bastante informal, existe 
no Rio o Tiger Clube, voltado para a 
linha TRS-80; segundo Sergio Macha- 
do, seu idealizador, o objetivo do Tiger 
e promover o encontro de usudrios do 
CP- 500, que desenvolvem programas e 
aplicativos isoladamente. £ Machado 
quem diz como funciona o Tiger Clube: 

— £ distribuido mensalmente um 
boletim onde sdo dadas valiosas infor- 
ma 90 es e dicas sobre novos programas, 
produtos, servi 9 os e aplica 90 es. O bole- 
tim esta aberto aos associados para que 
possam publicar anuncios, artigos e co- 



mentdrios em geral. Existe ate uma co- 
luna onde, atraves da publica 9 ao de 
fotografias, ficamos conhecendo os cole- 
gas. 

Funcionando d base de correspon- 
dence por caixa postal, o Tiger nao co- 
bra mensalidade. Os associados colabo- 
ram como podem, ate mesmo enviando 
selos para atender ds despesas, que nao 
sao poucas, como correio e copias xerox. 
O clube aceita programas ineditos para 
troca por outros de interesse do asso- 
ciado, sem despesas. 

O Applemaniacos de Sao Paulo e ou- 
tro que funciona atraves de caixa postal, 
reunindo atualmente mais de 100 asso- 
ciados por todo o Brasil, com idades 
entre 14 e 60 anos, que exercem as mais 



variadas profissOes, nas quais nem sem- 
pre o computador e uma ferramenta de 
trabalho. Um clube em que os associa- 
dos se comunicam com muito humor e 
cada um deles utilizando um pseudoni- 
mo, ou nome de guerra, como prefere 
dizer seu presidente, o Capitdo Gancho. 

No Applemaniacos nao existe taxa de 
inscri 9 ao, apenas mensalidade de 1 
ORTN com vencimento no dia 15. 

E o bom humor n5o tira, aparente- 
mente, a seriedade do clube, que como 
beneficio ao associado oferece uma bi- 
blioteca de manuais para utilitarios 
(criados pelos associados), arquivo de 
software estrangeiro, disquetes com 
material especifico para programa 9 ao, 
tais como Double-Take, compiladores, 
sub-rotinas diversas etc. 

Os serv^os oferecidos pelo Apple- 
man lacos tern pre 90 S variados, mas se- 
gundo o Capit5o Gancho, menores 
que aqueles normalmente oferecidos por 
software houses. A mensalidade paga 
garante o recebimento de um boletim 
informando sobre as novidades nacio- 
nais e estrangeiras para o Apple; uma 
se 95 o de perguntas e respostas sobre 
soft e hardware; artigos acerca de apli- 
cativos muito utilizados como Magic m 




Na Casa do Futuro, usuarios e orientadores no laboratorio 
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Window, Visicalc, dBase II; classificados 
para venda, compra e troca de equipa- 
mentos e perifSricos; dicas sobre formas 
de copiar programas bloqueados; criti- 
cas sobre programas, livros e equipamen- 
tos, entre outros. 

L 0 GICA SINCLAIR NO CIRCUITO 

Quern tern um equipamento de logi- 
ca Sinclair tambem nao fica perdido, 
mesmo residindo em cidades distantes 
dos grandes centros. Para esses usudrios 
funcionam diversos clubes, atendendo 
tambem por correspondence, na base 
da troca de informa95es e programas. 

Um exemplo de intensa biblioteca de 
software est£ no Micro Games, um clu- 
be sediado no municipio mineiro de 
Joao Monlevade, se bem que funcionan- 
do mais na base de troca ou venda de 
programas. Paulo Wagner, que dirige o 
Micro Games com Mdrcio Oliveira, in- 
forma que o clube tern hoje um acervo 
de 350 programas, importados e nacio- 
nais, resultado de compras e trocas, nu- 
mero que vai aumentando mensalmen- 
te. Fundado em dezembro de 1983 , 
apenas no ano passado teve uma despesa 
de Cr$ 400 mil em selos, fitas e novos 
programas. Os associados do Micro Ga- 
mes, que nada pagam de mensalidade ou 
inscri^ao, podem trocar jogos em alta re- 
S0IU920 e utilitdrios com o clube ou ad- 
quirir, escolhendo em uma lista, dez 
programas por CrS 19 mil, sem outras 
despesas pelo correio. E Paulo Wagner 
garante que as encomendas s2o enviadas 
com seguran9a, por remessa registrada. 

Com uma listagem de aproximada- 
mente 800 socios no Brasil e 350 no ex- 
terior, segundo seu presidente Joaquim 
Pedro de Oliveira Martins, funciona no 
municipio flumiriense de Pirai o Grande 
Circuito Sinclair. Seus associados nada 
pagam e recebem um boletim cuja edi- 
920 e financiada pela venda de progra- 
mas desenvolvidos pelo clube. 

O Grande Circuito Sinclair n2o pro- 
move reuniOes, trabalhando em sistema 
de caixa postal. Seu boletim cont£m 
informa90es a respeito de soft e hardware 
dos equipamentos, dicas, programas e 
uma se9£o de intercambio. 

LOJAS, PONTO DE ENCONTRO 

Outra especie de ponto de encontro 
para proprietaries de micros s2o as lojas. 
A Filcres, em Sao Paulo, do grupo da 
Prologica, promove reunites aos s2bados 
com usudrios do CP- 500 . Eles freqiien- 
tam ali hi dois anos, comparecendo em 
m£dia dez hobbystas, profissionais de 
vdrias 2reas, a maior parte n2o ligados 
diretamente a Informdtica. 

Miguel Sim2o, engenheiro eletronico 
hi 20 anos, e um dos integrantes do clu- 
be da Filcres e 1 i chegou atrav6s de um 




Didgenes Alvarenga, Presidente do Rio Color 
Clube 



amigo, passando, desde ent2o, a se apro- 
fundar em conhecimentos de hardware 
e software. Recentemente os integrantes 
do grupo promoveram um curso de 
Assembler, com orienta92o dos prdprios 
membros. 

No Rio, a Micromaq, uma loja de 
equipamentos no centro da cidade, fun- 
ciona no mesmo esquema. Aos sabados 
os fregueses se reunem para falar de no- 
vidades, programas e trocar jogos para o 
Color, num hdbito que se repete desde* 
1983 , lembra Edinho, gerente da loja, 
que faz quest2o de ressaltar que n2o e 
o encontro apenas de garotos, mas de 
gatinhas e coroas , que vem ate de Sao 
Paulo. 

Para Edinho, a reuni2o 6 boa para a 
loja e util para os freqiientadores, que 
ali conhecem novos programas e artigos 
importados, como light-pen, e chegam a 
participar ate de improvisadas palestras 
sem ter que desembolsar qualquer im- 
portance a titulo de mensalidade. Ele 
lembra que hi £pocas em que aumenta o 
numero de freqiientadores, como no in- 
verno. “No verao o pessoal foge para a 
praia, mas a mddia de frequence Fica 
em tomo de 10 a 15 pessoas por saba- 
do”, diz Edinho. 

Reunindo em Sao Paulo usudrios de 
Apple e CP- 500 , hi um ano existe o 
W. F. Soft Clube, mantido pela loja do 
mesmo nome, que vende micros novos 
e usados de todas as linhas. Mediante 
uma taxa inicial de 2 ORTN e mensali- 
dade de 1 ORTN, o associado passa a 
ter o direito de retirar mensalmente cin- 
co programas, entre jogos e aplicativos. 
Eles podem permanecer com o associa- 
do durante 30 dias. Caso haja interesse 
de posse definitiva, a W. F. faz a copia 
para o associado. O acervo do clube con- 
ta com 200 programas de cada uma das 
linhas, muitos deles desenvolvidos pela 
empresa, que atua tambem como 
software-house. Outros s2o de autoria 
de associados e os restantes comprados 
pela W. F. com a arrecada92o de mensa- 
lidades. 

ESTAO CHEGANDO MAIS 

Instalada numa ampla casa do Hu- 
maitd, bairro de Botafogo, no Rio, fun- 
ciona a Casa do Futuro, reunindo ativi- 
dades de lazer com outras de aspecto 
profissional. Ela possui dois laboratorios 



onde est2o instalados 23 micros e um 
mini Cobra 530 . Seu esquema e pratica- 
mente o mesmo de um clube. Parte dos 
freqiientadores 6 formada por s6cios 
que pagam uma taxa para utiliza9ao de 
hardware ou hardware /software em pes- 
quisa, desenvolvimento de programas ou 
andlise crftica com assistencia de ana- 
listas de sistemas. 

Na 2 rea de cursos, oferece op9<5es pa- 
ra introdu92o ao processamento de da- 
dos, BASIC para crian9as e BASIC 
avan9ado, andlise de sistemas, lingua- 
gens, introdu9ao a CP/M, DOS, Unix, 
dBase II e automa92o de escritdrios pa- 
ra executivos e secretdrias. 

Na drea estritamente comercial, a Ca- 
sa do Futuro presta serv^os para empre- 
sas rodando software para folha de pa- 
gamentos, controle de contas a pagar e a 
receber, cadastramento e mala-direta. 
Aldm disso possibilita a comercializa- 
920 de programas de associados ou n2o, 
funcionando como uma especie de 
software-house. E j i esta fornecendo 
um curso de BASIC por video-cassete. 
Outros serv^os est2o sendo organizados, 
como cursos para pequenos grupos de 
uma s6 empresa, treinamento de pessoal 
na 2rea de introdu9ao e processamento, 
alem de formar tecnicos para a manu- 
ten§2o de equipamentos. 

A parte desse lado comercial, a Casa 
do Futuro funciona mesmo como um 
clube, onde os freqiientadores encon- 
tram espa90 para trocar id&as, progra- 
mas, dispSem de biblioteca para aumen- 
tar seus conhecimentos, de livraria e loja 
de suprimentos, tudo isso com assisten- 
cia adequada, informam Gilberto Mala- 
mut e Lia Taliberti, diretor e uma das 
orientadoras, respectivamente. 

Praticamente na mesma linlia da Casa 
do Futuro do Rio, esta funcionando em 
Sao Paulo o Clube do Micro, criado com 
o objetivo de atender, tambem, aqueles 
que nao podem ou n2o querem investir 
na aquisi9ao de um equipamento. Mauro 
Costa Loureiro, gerente da empresa Em- 
brasoftware, que mantem o Clube do 
Micro, diz que la o usudrio terd oportu- 
nidade de utilizar o computador por um 
pre9o acessivel, operando o sistema com 
seus proprios disquetes, em forma de 
time -sharing. 

Para quern esta se iniciando na Infor- 
mdtica, o clube mantem cursos de intro- 
du9do ao processamento de dados. Para 
os jd iniciados, ha cursos de Magic 
Window, dBase II e Visicalc, entre ou- 
tros. O clube esta aberto a pessoas fisi- 
cas e jundicas, com uma taxa de inscri- 
920 para ter direito a um titulo e co- 
brando mensalmente uma taxa de manu- 
ten92o, permitindo o uso dos equipa- 
mentos por duas horas didrias. A cada 
hora excedente o associado paga uma yy 
quantia extra. Como vantagem, aldm^ 
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Mesas para terminals 
de video 

• Cl 

Cr$ A Af\ OCA *? 



Na compra de 
Cj% 1.000.000 
voce ganha um 
aparelho que duplica a 
utilizagao do diskete 



COMPUTADORES 

• Suprimentos 

• Perifericos 

• Impressoras 

• Drives 

• Placas de Expansao Interfaces 

• Cabos 



Conosco voce encontra tambem, tudo o mais que 

precisa em video-game, som, telefonia, 

das melhores marcas e procedencias, e mais: 

VIDEOS 

• Transcodificagao todos os sistemas 

• Fitas: VHS - BETA-U-MATIC e para limpeza de cabega 

• Baterias p/2 e 8 hs. 

• lluminadores 

• Cabos de extensao p/cameras 

• Bolsas p/cameras e videos 

• Telao 



• Acessdrios nacionais e importados 

• Suporte p / TV teto ou parede 



• Curso de ingles em video-cassete 

• Servigo expresso remetemos para todo Brasil 



BTC” 2001 



.ALTA TECNOLOGIA 



BRASILTRADE CENTER 

Av. Epitdcio Pessoa, 280 (Esq. de Visconde de Piraj&), Ipanema - Rio de Janeiro - CEP 22471 - 259-1299 

Rua da Assembl6ia, 10 - Loja 112 (Ed. Candido Mendes) Rio de Janeiro - (021) 222-5343 

Av. das Americas, 4790 - Sala 615 (Centro Profissional Barra Shopping) Rio de Janeiro - 325-0481 

TELEX (021)30212 BTCP 

F&brica: Rua Silva Vale, 416 - Cavalcanti - RJ - Tel.: (021) 592-3047 
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Os clubes e empresas citados nesta reportagem podem ser contatados por 

endereso, telefone ou caixa postal, que se seguem: 

SAO PAULO 

• Clube do Micro - Rua Cardoso de Almeida, 23, conjunto 74, CEP 05013. 

• Filcres — Rua Aurora, 165, telefone 223-1466, CEP 01209. 

• Nucleo da Sharp — Telefone 21 1-7022, Ramal 404. 

• W. F. Soft Club - Rua Ministro Godoy, 283, telefone 263-0039, CEP 
05015. 

• Apple Clube Microcomp - Av.PedrosodeMorais, 1 .234, telefone 814-7623 
e 815-7481, CEP 05420. 

• Clube dos Appieman iacos - Caixa Postal 54.131, C EP 0 1 296 . 

• Apple Magic Clube — Rua Sao Camilo, 21, Santo Andre, CEP 09000, tele- 
fone (011)447-9034. 

RIO DE JANEIRO 

• Apple Clube do Brasil (Heitor Lira) - Telefone 285-4350 (a noite). 

• TRS Color Micromaq - Rua Sete de Setembro, 92/ 106, telefone 222-6088. 

• 6809 Color Clube (Diogenes Alvarenga) — Telefone 226-6786. 

• Casa do Futuro — Rua Macedo Sobrinho, 46, Botafogo, telefone 266-3447. 

• Grande Circuito Sinclair - Caixa Postal 28, Pirai, CEP 27200, RJ. 

• Tiger Clube (Sergio Machado) - Caixa Postal 23.095, Rio de Janeiro, RJ. 

RIO GRANDE DO SUL 

• Apple Clube do Brasil (Ernesto Pellanda) Telefone (0512) 21-9203 e 
23-0577. 

MINAS GERAIS 

• Micro Games (Paulo Wagner) - Av. Getulio Vargas, 4.726, CEP 35.930, 
Joao Monl evade, MG. 



do equipamento, estate disponiveis qua- 
se 100 op95es de software rodando em 
sistemas DOS e CP/M. 

CONTATANDO POR MALA-DIRETA 

Outra forma de enturmar os usuarios 
e desenvolvida pelas fdbricas, que tern 
seus proprios clubes, como a Prologica, 
a Microdigital e HP e a Sharp, entre ou- 
tras, funcionando por sistema de mala- 
direta, em que os clientes recebem todas 
as informasOes sobre novidades em ter- 
mos de software e perifericos para me- 
lhor utilizagao dos equipamentos. 

Em Sao Paulo ha ainda a Compucen- 
ter, uma empresa que organiza cursos 
diversos na £rea da Informatica. Nao se 
pode dizer que ela tenha um clube, mas 
de alguma forma ajuda os usuarios de 
micros. Os interessados se inscrevem em 
sua lista de associados e passam a rece- 
ber gratuitamente um jornalzinho cha- 
mado “Abacus”, que publica informa- 
90 es gerais acerca do assunto. O Clube, 
denominado Clip, nSte promove encon- 
tros ou reunites. u 



Tex to : Ben { L ima Pereira 




SOFTWARE 



apresenta novas ittas com 
desatios emockmantes para voce! 



PARA EQUIPAMENTOS COM L6GICA SINCLAIR 



1. VALKIRIE 

Piloie a nave 
Valkirte e parta 
em busca de de* 
castelos perdidos. 
(Exclusivtdade 
Ciborne. por 
Dtvino C.R 
Lettao) 

E mats: 

GUERRILHA 

COSMICA 



4 . DEFENSOR 3D 

Livre nosso 
plancta de uma 
invesao 
altenigena. 

FantAstlcas 
itmulagbes 
tri dimensional*. 

E man: Q'BERT 
(Exdusivtdade 
Ciberne, 
porDlvmoC.R LeitAo} e 
ASSALTO 






2. MERCADOR DOS 
SETE 
MARES 

No s^culo XIX 
vocA percorre o 
mundo a bordo 
de seu navto, en 
busra de bons 
neqbctos. 

CORRIDA MALUCA e PINBALL 
(Exclusivtdade Ciberne, por Divino 
C.R. Loitao). 

5. ROT I - PLUS 

• S.O.G 
Sistema 

operacional. com 
linguagem 
grAtica Inltnitas 
opgOes de uso. 

Totalmenle em 
c6d:go de 
inAquina 

(ExclusivtdadeCtbeme. por J Magal) 

• MERGE 

Possibiltta a (un^Ao de vArtos 
crograrnas, uns aos outros. 





3. SUBESPAQO 

ImpIacAvel 
Canada espactal. 
Totalmente 
grAltco 
E mais 

CAVERNAS DE 
MARTE 
(Exclusividade 
Ciberne. por 
Divtr.o 

C.R. Lmtao) e COMBOIO 
ESPACIAL. 



6 . APLICT 

• COMP-CALC 

RAptdo. ciic.ente e totalmente em 
cbdtgpde mAquina A melhor versAo 
do |A famoso VlsiCalc 

• COMP ARO 

Programa gerador de arquivos. 
Totalmente em cbdigo de mAquina 
Modele iichas e as acesse pelo 
eampo que quiser 

• COMP TEXTO 

De fAcll manipulate, totalmente em 
c6diqo de mAquma. 



PARA EQUIPAMENTOS COM L6GICA TRS 80 



1. SIMULADOR DE V 60 

Totalmente 




2. XADREZ 

O mais 

tradicional dos 
logos. 

reeditado em 
nova e 
bnlhante 
versAo. 

E mats: 

PATRULHA 
ARMADA 
e P An ICO 

(totalmente sononzaaosi 





GARANTA 
SUA MS 
TODO MES! 



ASSINE HOJE MESMO E RECEBA GRATUITA- 
MENTE 6 NUMEROS A SUA ESCOLHA A PARTIR 
DO NP 20, PREENCHA O CUPOM ABAIXO (OU 
UMA XEROX, CASO VOCE NAO QUEIRA CORTAR 
A REVISTA): 



Nome 

E mpresa 

Prof issdo/Cargo 

Endere^o para remessa 

Cidade CEP Estado 

Assinatura Anual : □ Micro Sistemas . . . Cr$ 50.000,00 



GRATIS! 6 N0MEROS ATRASADOS. 



Preencha um cheque nominal A ATI Editora Ltda., e envie 
para: Av. Presidente Wilson, 165/Grupo 1210, Centro, Rio de 
Janeiro, RJ, CEP 20.030 - Tels.:'(021) 262-5259 e 262-6306 
R. Oliveira Dias, 153, Jardim Paulista, S£o Paulo, SP, CEP 
01433 - Tels.: (01 1 ) 853-3574 e 853-3800. 

Seu recibo ser4 enviado pelo Correio. 




i a 

HORA 



2 - 

HORA 



3 s 

HORA 



4 a 

HORA 



5 s 

HORA 



6 - 

HORA 



Ocomputador e uma maquina fantastica que 
trouxe muitos benef icios ao homem . No en- 
tanto. para quem tem que ficar sentado diante 
de um terminal de video por horas a fio, o com- 
putador esta gerando alguns problemas. 
Manter a vista focada muito tempo em carac- 
teres pequenos e luminosos. alem de prqju- 

dicar a 
visao, 
cansa, 
causa 
dor-de- 
cabeqa 
e irrtta' 
qao. 
Para 
quem 

usa dculos comuns entao, os efertos aumen- 
tarn por causa dos ref lexos criados nas lentes . 
Agora . todos esses problemas tem uma solu- 
qao. Sao os dculos Videolux das Oticas Flu mi - 
nense . Os dculos Videolux , alem de possui* 
rem lente anti-reflexo. tem uma compos k;ao 




do a nitidez dos caractenes e proporcionando 
maior descanso para a sua vista . 

Existem 3 tipos de lentes diferentes , uma 
para cada tipo de terminal. 

Os dculos Videolux podem ter ou nao grau e 
sao encontrados em modelos masculinos e fe- 
mininos . A vends em todas as filiais das Oticas 

Flumi- 
nense, 
os dculos 
Videolux 
farao 
voce 
chegara 
ultima 
hora do 
seu dia 

de trabalho se sentindo muito melhor. 
Proteja-se com os dculos Videolux , 

d C U l 0 S 

UIDE0 







SGU5Qliint*5 merecem. 



IVit&rol : Rua da CorKiefc^o. 3fi * Ca Btelo: Av . Franklin RotKcvdlt „ flw 
tAvcnlda: Av. Rio Branco. 1 77*CopacabaniiiAv. N.S.doCopaiiA- 
bana. 10SS * Ipanemaj Rua Viscorwlo d* Pir^a, £07 * Rua ftd 

RiaclTLieto, 247 • M^ciuroirn: Av . Mm . kdg,TLr ROTTW'O, 9 1 * TIJ Ruo 
Conda Bonfim . 2 1 4 » Rer'ia, 45. 










Microcraft 
entra nos 16 Bits 



DfcpOis do sucesso d a Craft li. 
compatfvel com Apple, a Micro- 
era It invests agora na linha 1 6 bits 
langandq 0 Craft XT, cornpatfvfil 
Cdrfi Q modalo XT da PC da IBM, 
O ftdva equipamanta passu i me- 
mfli'ia inici ar de 256 Kb da RAM, 
podenda expan dkr-se 512 Kb 

31 rav&S da uma placu que a Mi era - 
Croft tamb^m jO cblocou no mer- 
C*do. 0 Craft XT po-Kiji Oi to slots, 
Sun do dm para placa da video, ou- 
TrO dam tras Safdas Tia mesmapka- 
CO [joystick, serial a paralelaJ . e as 
QUirOS S v.*$ dkSfXWv&ii paril e)t- 
pansffa. Em sqa conf igurag^a b£- 
sksa o Craft XT vem conn UCP 
com 25$ Kbytes rie RAM, y/deo 
de f^jforo vtrde a dois drives 
para di equates dp 5 1^4", com op- 
tional pars Winchester, o seu pro- 

co rfevg ficer em torno de t.noo 

ORTN, A iddie da Microcraft 4 
manter seu aquipamenfo a urn 
proto dbaiXQ do$ COncOrrenleS a 
flxemplo do kangamerrto da Craft 



kl, pois segundo Cel so Tanaka, ge- 
rtfrkta camercial, a empress inves- 
ts sCmpre pansando no future*. 0 
Craft XT fpi dcsenvolvtdo tm 
tempo records, tres moses, a o in- 
vestimento foi tfc 1 bilhSD a 200 
milhoes de cruzeiros. SflraD pro- 
dundas Entre 60 a BO unidades 
pof mfis, 

Outra navi dad* da MkcfOCraft 
4 0 Crafi AT, qua ng Vflrdatte 4 Q 
prOpriq Craft Pi Plus com rtovd 
design, memdrirs knickak d* 64 Kb, 
]4 tnn/endo frmbu lidos control a- 
efpr de disco, plgca CP/M r fonte 
qua suparia Winchester a um dri- 
ve. OAT possui irfis UCPs (6502, 
2-8QA a 9Q35J . Se o uSu^rio for 
Comprar todos esses aCeiSbriOs 
para incorporar ao Craft fil sau 
custp serS de aproximodamerne 
10 a 12 mikfides 4c truffl^qs, an- 
quanto c modelq AT CUSCO pOr 
vdlta da Cr$ 8 mil lidos ds GJliZfii- 
noi. 



Modems da Tropical 

A TfppicmJ Sutemas Lid*], us id ofurecendo os segumifis mo- 
dems: Banda 8ase TS - 19200; e TS - 300. O TS - 19200 ope- 
ra smeronamuntp. nps modes duplex e. semi -duplex em Nfjagdc&a 
nuairo Mos e semi -duplex a dori t«os ne volocidad* de .HP 19,200 
BPS. O TS - 300 4 urn modem aufrtcrooo e angldgicn dasfingdo 
k rrgnsm*5s4o e recepc^o dodt* 0m4rio5 em W^hm priyativus 
eyou reda comuiada. Esta modalo opera at4 300 BPS. 

O ende^aoo da Tropical (r. Av. Anlbma AbraJo Caran. 430, 
39 andar, Bc*o Hariionb - MG, CEF. 30000, tel. : 1031 1 44 1 -1636, 



IRS Color facilita 
acesso a comunidades 



Os usuirios do micros da Pin ha 
T0S BO Color, como o Color 64 1 ? 
o CP 400 j£ contem com & interfa- 
ce RS 232-C embudda na configu- 
ragao bisica. tssg diminui conside- 
ravel man te O Cd?tO nQ£*SSririo 
para sg liggj as comunidades. A 
L2 Equipamentos Eletrbnicos 
□conselha inclusive quo O uSu^rio 
adqyira on n modem qua possa 
opgrar am v4d« wlocidades dkfe- 
rontes, lanto pUra EianSmkssao 



Area Grafica 

HepOiS de lang-ar o VersgCad, 
si sterna que perm ire a ulilizacSb 
da tecnicas rfc Computer Aided 
Drafting, a Opmicro MiCrOCOm- 
putadoras calpcg agora no mar- 
eado mais dois prgdutos voita- 
dos para a area grAficiL. SfliO ePes 
uma mesa digital izadora e gm plot- 
tet. A mesa model o PD 1030 que 
0£t4 sen do comer cializ^dB pci 3 
ComicrP 4 de fabricac^o rig STk 
— Si stem as de TeiecqmunicacScs 
e lnform4tica p e pod* $e* ligaria 
a quaiquer cdmpptgqor airavfc 
de interface serial RS 232-C, Dg- 
senhfOlvida para ?gr utilizada em 
siSTertiaS de m^dip e ptqLnno por- 
te a mesa digital izadom PD 1030 
pods ser ligada a micros das linbas 
AppP* e FC e tom coma prindpaP 
npliCuC^b a entrada de dados gi A- 
fpcUS. O plotter iangado pet? Co- 
micro for riesgnvol vi<f 0 ptila Oigj- 



quanta para recepi^o, O quo pOS- 
sibilita tamb^m O uSO do system* 
Videotexlo. Ainda pam os usuS- 
rios tlesa kimha. a MiCromaq e a 
LZ cormorciafizam um software 
de origem americana que pgrmi- 
to a ComuniCEgao com atiuelas 00' 
mumdades, bem comp com o CB- 
8S do Amim r qye Junoipna cm sis- 
[cma semeihantc, riiairamenus r dm 
2a h as 24 h. cm sittema BbM, pula 
tglefone (021 P 246-2930. 



em Expansao 

con g w encofitra disponfvel nos 
tamanfios AT e A2 f ambos com 
uma pena. A ligeglb dt> ploHcr 
com os sislcma* dc computador 
4 faita tambdm airav4s dc inner- 
face fl S 232-C. Para mt i I ■ zagao ton - 
to da meSa quCnIO do plotter s5d 
nCcessiriDS prog ramus de supcrle 
com rolinas especrficas para o ljso 
desseS equipamenlos Para isso a 
rd4ia da Cdmicro 4 de comerpia- 
lizrlr sob a forma de pa cote com- 
plete a mrcrPcornputadDr d* 10 
bits compatfvel cam PC da IBM, 
0 programs VarsaCad, que possui 
as rolinas neosssCrias, a mesa C 0 
plotter. Si yendido* scparadamcn- 
Se d prega da mesa d^itftl i-Hdora 
e de 305 ORTW, e & plotter cu*ia 
l.lOOORTpy, Oy tras inf ormsc^cs 
padem ser optidas na prdprig Co- 
rn iern peko telA (CUP 853^2273 
£5o Paulo, 



Seguran$a com uma so camera 



Jogos para 
o CP-400 Color 

Mais 54 jogos BSt^O disqonfvcis no martado pa ra ds usuErios do CP- 
40tk Color, afcrgvtis de 19 fltM Isncados reccniamcnie pela Kristian Eia- 
iron ice Ltde, Cads fita vcm com tr^s jogos e enina as navidades ast&o 
Zaxxon, Damon Seed * Roboty: Patrulk^s Lunar, Cave Hunter e Wlusi- 
css Espaeigis; Tennis, 8 r Ball c Demon Dancer; Xadroz, Da mas e Black- 
jack e Pftcketman, Gobbler e Scarfman. Outrai informatfles podgm ser 
obtidas na Rua Gonza^a R a si os, 1 12 ou pci a tele tone ((321 k 268-8249. 



G Centro de Infprmitice Mictomgq, que no Rio ^epresenta a Fo<6- 
tica, de SaD Paulo, estd promovendD o Janc^menio da equ i psmento de 
seguran^E pare condomrnios denominadD CSTV. A empress in forma 
que OS daz primei rqs -con dom fni os intgrcssgdos rgccbg/aq avilitade cn- 
genhairos da Fotfttica pare instgSac^o, em car&te^ rie cxpe/iencio, par 
dez dias, daquele equipamento. 

Na CSTV o gmpncqgdg umscSm era dc TV na porlaria doscondomf- 
nios e os monitorcs sao o* prdprios .ftpgrel hos de telcvisffo decadaapar- 
tamento, aperando num c-angl prgviamente dcterminsdo. A irVITala£ad 
Tam sau custp dividido em cinco percelas, sem luios. A Miordmaq tam- 
b4m dgsenvolve outros prOjatOS dfi SC^uran^a dlctrftb Ida para residancras 
e gmprgsas. Dutrps informa^Sas na Rua Sole deSctambro, 92, iDja 1U$, 
telefong (021 \ 222-6080. 
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Filtros 

de linha 
JG 




A JG Eletr6nica, desde 1980 
suprindo as necessidades da indds- 
tria de inform4tica nacional e es- 
trangeira, coloca agora ao alcance 
dos usudrios de microcomputado- 
res e perifericos a solupao para o 
problema da Interferencia de Ra- 
dio FreqiiSncia (IRF). 

Se o seu micro apresenta corn- 
portamento por vezes estranho, 
"congelando" o vfdeo ou "rese- 
tando" espontaneamente, voce 
provavelmente estara sendo vi'ti- 
ma de IRF causada por transien- 
tes e comutagSes na sua rede de 
alimenta$ao, devido a outros equi- 
pamentos a ela ligados. Da mesma 



forma, o seu micro estara certa- 
mente causando interferencia em 
outros aparelhos, tais como televi- 
sores e equipamentos de som e de 
radioamador. De facil instalapao, 
entre o equipamento e a rede de 
alimentagao, e de eficiSncia com- 
provada, os filtros de linha JG es- 
tao disponfveis em varios mode- 
los, com capacidade variando des- 
de 1 A at4 30 A. 

Escreva ou telefone solicitan- 
do cataiogos ou detalhando o seu 
problema. O endere^o da JG Ele- 
tronica 6 rua Braga 18, CEP 21011, 
Rio de Janeiro — RJ, e o telefone 
4 (021) 280-6538. 



Transbsc 3 da Scopus 

A Intertec informa que lanpou no mercado mais uma versao, a Sco- 
pus, para o Transbsc 3, que segundo seu gerente de Desenvolvimento, 
Ellis Feigenblatt, apresenta duas inovaipoes: aumento da taxa de trans- 
missao de dados e versSo movida a interrup^ao. Com a versSo Scopus, 
em 4800 bps, a possfvel avanpar para a transmissao de 16 Kb por minu- 
to. Segundo Ellis, a versao movida a interrup<?ao tambam a inadita, pois 
a comunicagao entre o micro e o mainframe n£o sofre alterapao quando 
o primeiro est4 acessando um disco. 



Edisa Entrando em CAD 

Depois do contrato para transference de tecnologia dos siste- 
mas HP-3000, a Edisa pretende firmar um novo acordo com a 
Hewlett Packard para adquirir tecnologia na 4rea de CAD (proje- 
tos assistidos por computador). J4 est£ sendo examinado na Se- 
cretaria Especial de lnform£tica projeto da Edisa para fabricagio 
de trds sistemas de CAD: ED-902, ED-920 e ED-950, al6m de um 
sistema para desenvolvimento de software e hardware para mi- 
crocomputadores. Para a produgao desses equipamentos estao 
previstos investimentos de aproximadamente 2 milhoes e 700 mil 
dblares. 

A Edisa fechou o ano de 84 com um faturamento de Cr$ 43 
bilhtees e 500 milhoes de cruzeiros, e para este ano os pianos da 
empresa sao de aumentar em 48% este valor,, com os microcom- 
putadores representando cerca de 80% do total a ser faturado. 



Nova Oportunidade 
em Informatica 

As pessoas com deficiencia visual tern agora uma nova oportunidade 
na 4rea de Informatica. Trata-se do Audiodata, um sistema inddito de- 
senvolvido por Assis Moacir Duch, 37 anos e cego desde os cinco anos 
de idade. Acoplado a um terminal de dados ou a um microcomputador 
do tipo CP-500, da Prolbgica, o Audiodata transforma os numeros, le- 
tras e sinais graficos em notas musicais. O sistema 4 composto basica- 
mente por uma famflia de 34 sinais em escala musical natural. O Audio- 
data pode ser fabricado a um custo de cerca de Cr$ 300 mil cruzeiros e 
4 facilmente adaptavel a qualquer sistema de dados. O sistema pode ar- 
mazenar at6 oito tabelas de cbdigos de entrada, entre as quais os siste- 
mas ASC II, o Ebcedc da IBM e o TTY, comum aos telex. A Embratel, 
que deu apoio a Assis para o desenvolvimento do Audiodata, est4 real i- 
zando em conjunto com a Secretaria de Educagao de Sao Paulo o pri- 
meiro curso para deficientes visuais com o sistema Audiodata. 



Agora, os IBM PC e Compatweis 
falam portugues 



t 




A PC Software e Consultoria criou, para seu micro 
da linha IBM PC, ABC. A maneira mais facil, rdpida 
e oraanizada de escrever. 

ABC 6 um poderosissimo processador de textos, 
com todos os recursos dos melhoies programas 



do genero no mundo. Negrito, subscrito, sobrescrito, 
paginacao automatica, cabecalho, notas de pe-de 



pdgina e muito mais. 
AE 



BC e compatfvel com lotus 1 -2-3, Visicalc, 
Supercalc e dbase II. E facilimo de usar. Os principals 
comandos sao acessados por 
meio de uma unica tecla. E voce 
necebe ainda um "Tutor" e disco 
para praticor o manuseio do ABC. 

Mas, o melhor de tudo e que 
ABC fala sua lingua. Com cedilha, 
acentos e todo o resto, no vfdeo, 
impressora ou maquina de 
escrever eletranica. 

E o ABC tern ainda todo 
o suporte da PC, a empresa de 
maior experiencia em treinamento, 
consultoria e desenvolvimento 
e software para compatfveis 
com IBM PC. 




PC Software e Consultoria Ltda. 

Almirante Banoso, 91 Gr. 1102 - Rio 
Tels.: (021) 220-5371 e (021) 262-6553 

Repres. em SR: Execplan 

Rua Frei Caneca, 1407 - 10? andar 

CEP: 01307 

Tel.: (01 1)284-0085 







Lentes protegem contra 
a luz dos monitores 




AsOticas Flu- 
minenses coloca- 
ram recentemen- 
te no mercado os 
6culos VTdeolux, 
criad osespecifi- 
camente para 
quern trabalha 
em terminate de 
computadores. 

As lentes, desen- 
volvidas pelo 
Centro de Estu- 
dos da American 
Optical, prote- 
gem osolhos,evi- 
tando a fadiga vi- 
sual tao comum ds pessoas que tra- 
balham & f rente de computadores. 
As lentes variant de acordo com a 
cor de cada monitor, sendo forne- 
cidas em tres tons e adapt£veis a 



qualquer g.au. Outros esclareci- 
mentos poderao ser obtidos na 
Rua Tenente Possolo, 33, Rio, te- 
lefone (021) 224-3377. 



Novidades da SID 



Os microcomputadores SID da 
s6rie 3000 j3 podem operar como 
terminals de entrada de dados. A 
empresa esta colocando no merca- 
do o software STC — Sistema de 
Transcrigao de Dados, desenvolvi- 
do pela Minimicro. A comerciali- 
zapao do STC 6 feita pela prdpria 
SID e o programa esta sendo ofe- 
recido em disquetes de 3" ou de 
b 1/4" pelo prepo de 50 ORTN. 

E os terminals de caixa auto- 
m^tica SID 1600, conhecidos dos 
clientes do Bradesco e dos bancos 
que compdem o 24 Horas, agora 
falam. Foi incorporado a essas 
m^quinas um dispositivo de orien- 



tapffo por voz que 6 acionado pelo 
programa aplicativo do computa- 
dor central toda vez que um sen- 
sor detectar a aproximapao de 
uma pessoa. O novo dispositivo 
incorporado aos terminals de cai- 
xa automStica pode reproduzir 16 
frases. Ainda na 3rea de automa- 
pao bancSria e automapao comer- 
cial, a SID colocar£ em operapSo 
experimental em meados do ano 
seus terminate ponto de venda. O 
projeto do terminal foi concebido 
com base na id£ia de modularida- 
de, seguindo parametros definidos 
pela Associapao Brasileira de Au- 
tomapao Comercial. 



O CBBS da BBS 



A Biblioteca Brasileira de Soft- 
ware, que funciona em Sao Paulo 
prestando servipo de aluguel de 
programas, estS insugurando o seu 
CBBS (Computer Bulletin Board 
Service). AI6m da comunicapao 
entre seus usuSrios, o CBBS possi- 
bilita tambSm a utilizapao dos 
programas que constam em seu 
banco de dados. Este banco 6 ali- 
mentado principalmente com pro- 
gramas de domfnio publico e, se- 
gundo o gerente da BBS, mensal- 
mente deverao ser colocados no 
banco de dados seis novos progra- 
mas. Inicialmente o CBBS conta 
com cerca de cem programas para 
as linhas Apple e TRS-80 que es- 



tate armazenados em um Apple 
com dois drives que funciona com 
um operador para quando 6 neces- 
s£ria a troca de disquetes. O aces- 
so ao CBBS pode ser feito atrav6s 
do mesmo kit de comunicapao 
para acesso ao projeto Cirandcfo, 
da Embratel. Inclusive a prdpria 
BBS j£ comercializa esse kit que 
6 composto pela interface RS 232, 
o modem e o software que servirS 
para ambos os bancos de dados. A 
Biblioteca Brasileira de Software 
fica na Av. Brigadeiro Faria Lima, 
1.390 Cj. 82 Jardim Paulistano, 
Sao Paulo e os telefones sao: 
(011) 8136407 e 210-1251. 



Administrapao de Materials 

A Diacon Informatica, empresa de consultoria, treinamento e de- 
senvolvimento de sistemas, estS colocando no mercado o Diaplan — Sis- 
tema de Administrapao de Materials. O sistema foi desenvolvido em um 
microcomputador da linha Apple podendo ser adaptado para micros de 
outras linhas ou para equipamentos de maior porte. O Diaplan realiza 
controle de estoque, de entrada e safda de produtos e de compromis- 
sos financeiros por dia e por fornecedor, podendo ser aplicado nas areas 
de engenharia de produtos e de suprimentos, entre outras. Maiores in- 
formapoes podem ser obtidas na prdpria Diacon pelo tel.: (01 1 ) 572-6168, 
Sao Paulo. 



Miniventiladores Arno 



A Arno Rotron Equipamentos 
EI6tricos possui uma grande varie- 
dade de ventiladores de dimensdes 
compactas para utilizapSte em cir- 
cuitos eletronicos. Os miniventila- 
dores podem ser utilizados em 
computadores e perifgricos, copia- 
doras, aparelhos de audio, de mi- 
crofilmagem e de telecomunica- 
pdes, entre outros. Entre os mi- 
niventiladores desenvolvidos espe- 
cialmente para micros e minicom- 



putadores estate os da linha VTA: 
Alto Fluxo, Super Fluxo, Extra 
Silencioso, Ultra Silencioso; e o 
Motor Ventilador Axial Muffin 
XL. Outro produto da Arno Ro- 
tron 6 o motor sfncrono MF, de 
pequeno porte, que pode ser usa- 
do em drives para o acionamento 
de disquetes. Informapoes sobre 
os produtos da Arno Rotron po- 
dem ser obtidas pelos tels.: (011) 
273-1122 ou 273-6725. 



Linha Informatica Remington 



A Remington colocou no mercado sua li- 
nha de produtos para a area de Informatica. 
Entre estes est£ o sistema de processamento 
de textos, com capacidade de composipSo, 
edipao e reprodupao. O sistema 6 composto 
por um monitor de vfdeo, uma unidade cen- 
tral de processamento com at6 dois disque- 
tes de 5 1/4" e um terminal Remtronic 2000 
T. Este ultimo tamb£m em lanpamento reune 
em um s6 equipamento as caracterfsticas de 
impressora com "qualidade carta", m^quina 



O V Congresso da Sociedade Brasileira de 
Computapao e a XI Conferencia Latino Ame- 
ricana de Informatica vSo se realizar este ano 
de 20 a 27 de julho, na Universidade Federal 
do Rio Grande do Sul, em Porto Alegre. At6 
o proximo dia 15 a organizapao do Congresso 
estara recebendo os trabalhos dos autores in- 
teressados em participar do IV Concurso de 
Trabalhos de Iniciapao Cient(fica (para estu- 
dantes de gradupao); do Seminario Integrado 
de Software e Hardware, e do II Simpdsio de 
Conceppao de Circuitos Integrados. Os traba- 
lhos destes dois ultimos serao divididos em 
duas categories: Comunicapao T6cnica, resu- 
mes de at6 duas paginas apresentando resul- 



de escrever eletronica e um terminal para co- 
mun'capao com computadores atrav£s do pro- 
tocol RS 232-C. Outra novidade 6 a impres- 
sora de margarida IM 217, com "qualidade 
carta", para ligapao a microcomputadores 
atrav6s de interface serial (RS 232-C) ou para- 
lela (Centronics). Na lista de novos produtos 
da Remington figuram ainda uma m^quina de 
escrever eletronica REMTRONIC 2400, com 
2, 4, 8 e 16 Kbytes de mem6ria;e o terminal 
editor de textos. 



tados recentes de trabalhos de pesquisa e de 
aplicapoes; e Artigo T6cnico, com um proxi- 
mo de 15 paginas apresentando experiences 
e avanpos relativos 3rea de Informatica. A 
indicapSo da categoria na qual o trabalho 
se enquadra deverS ser feita pelo prdprio au- 
tor na carta de encaminhamento. Esta dever^ 
ser enviada a Ricardo Augusto Reis, Departa- 
mento de Informatica e P6s Graduapate em 
Ciencia da Computapao da Universidade Fede- 
ral do Rio Grande do Sul, Caixa Postal 1501 
— CEP 90000 Porto Alegre. Outras informa- 
poes podem ser obtidas pelo tel.: (0512) 
21-8499. 



Pregos 
da Sacco 



A loja paulista Sacco Computer Sto- 
re, que fica na Alameda Gabriel Montei- 
ro da Silva n9 1.229, anuncia os prepos 
de alguns dos produtos que comercializa: 



PC 2001 (256Kb) 1 .238 ORTN 

UCP Craft 1 1 Plus (48Kb) . . 104ORTN 
UPC Unitron AP II (48Kb) . 120 ORTN 

Disk Drive 5 1/4" 72 ORTN 

Impressora Grafix 80 .... 179 ORTN 
Impressora Graf ix 100 .... 293 ORTN 
Impressora Alice 9051 .... 459 ORTN 
Impressora M6nica Plus . . . 329 ORTN 
Monitor Compo MV1 .... 52 ORTN 



Software 



Alta Caixa 15 ORTN 

Janela M£gica 1 1 18 ORTN 

Super Visicalc 18 ORTN 

Lotus 1-2-3 200 ORTN 



Congresso da S. B. C. 



INSTRUMENTOS 



* Decida sem duvidas, erros de informacao, falhas de estoque 
ou vacilapdes nas entregas. 

— Completa linha de instrumentos de teste e medicao. 

— Garantia de ate 2 anos. 

— Assistencia tecnica propria permanente. 

— Sistema inedito de reposigao quando em 
garantia. 

— Atendimento personalizado para 
todo o Brasil. 



\. 






INFORMATICA 



SUPRIMENTOS 

CPD 



* Ponha-se em dia com o 
futuro. 

— Microcomputadores 
Prologica. 

— Assistencia tecnica 
propria. 

— Revendedores em todo 
o territorio nacional com a 
melhor assessoria para ampa- 
ra-lo no momento de decisao. 
mesmo que voce so precise 
de uma informagao mais 
precisa sobre os 
equipamentos. 



I 



FILCHES 



AJUDANDO 
A DESENVOLVER 
TECNOLOGIA 

VISITE NOSSO SHOW-ROOM OU 
SOLICITE NOSSO REPRESENTANTE 

FILCRES ELETRONICA ATACADISTA LTDA. 
Rua Aurora, 165/171/179 — Sao Paulo — SP 
PBX: 223-7388 

Vendas Sao Paulo — Tels.: 220-7954/222-3458 
Vendas outros Estados — Tels.: 223-7649/221-0147 
Telex: 1131298 



* Unimos o util ao agrada- 
vel: qualidade/preco. 

— Pronta entrega para todo 
o territorio nacional. 

— Estoque com os mais 
variados produtos. 

— . Fitas impressoras 
. Formularios 
Etiquetas 
. Disquettes 
. Mesas 

. Estabilizadores 

. Modens 

. Pastas para 
formularios 

. etc. 
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Planejar e controlar projetos nao e mais tao dificil. 
Utilizando este programa para a linha Apple, sua empresa 
podera contar com... 



Tecnica Pert 

Angelo dos Santos Soares 




O planejamento e controle de 
prazos das tarefas que coin- 
poem um projeto vem, a cada 
dia, tornando-se mais impor- 
tanles, principalmente quando se verifi- 
ca a complexidade e a interdependencia 
dos fatores que influem na sua solu9ao. 
Estes fatores podem ser externos, como, 
por exemplo, prazos estabelecidos para 
entrcga do projeto ou termino do servi- 
90 , e/ou internos, como tipos de regime 
de trabalho adotado, seqiiencia e inter- 
dependencia entre as opera9oes. 

Atualmente, uma das tecnicas mais 
usadas para planejar e controlar projetos 
d a tecnica PERT (Program Evaluation 
and Review Technique), ou seja, Tecni- 
ca de Avalia9ao e Controle de Progra- 
mas. Esta tecnica sc torna ainda mais 
util quando se deseja controlar e coorde- 
nar varias atividades correntes que se di- 
rigem a um objetivo comum. 

O PERT foi utilizado pela primeira 
vez na constru9ao de sistemas de proje- 
teis “Polaris” e teve seu uso difundido 
tanto no campo civil como militar. 

A REDE 

A rede de planejamento e a represen- 
ta9ao grdfica de um programa, no qual 
se apresenta a seqiiencia logica do plane- 
jamento com as interdependencias das 
tarefas, com o intuito de se alcazar um 
determinado objetivo. Deve-se evitar 
que a rede apresente det allies excessivos 
em alguns setores e em outros seja por 
demais grosseira. 

Uma rede e composta de eventos e 
atividades. Os eventos sao representados 
por ciculos e constituem marcos que ca- 



racterizam determinados instantes, sem 
consumir tempo e/ou recursos. Ja as 
atividades sao representadas por arcos 
orientados que unem dois eventos. E a 
execu9ao efetiva de uma opera9^o, con- 
sumindo tempo e/ou recursos. 

Para representar uma rede, podemos 
lan9ar mao de dois metodos: o frances e 
o americano. No nosso programa, o me- 
todo utilizado serd o americano por cau- 



sa das vantagens que este apresenta so- 
bre o me'todo frances, alem de ser o 
mais usado. O metodo americano apre- 
senta, entre outras, as seguintes vanta- 
gens: permite um dominio mais facil pa- 
ra quern realiza o planejamento e difi- 
culta a repet^ao inutil de idcias que re- 
presentam um so pensamento. 

Para se elaborar uma rede de planeja- 
mento, 6 necessdrio conhecer a rela- 



Ti-CNICA PERT 

9ao das atividades, a ordem de relaciona- 
mento entre elas e sua dura9ao. Tam- 
bem e importante observar as seguintes 
regras basicas: 

• entre dois eventos so pode existir 
uma atividade; 

• qualquer atividade que parte de um 
unico n 6 e uma atividade dependente de 
todas as atividades que chegam a esse 
n 6 ; 

• um evento 6 considerado atingido 
quando todas as atividades que conver- 
gem para ele forem concluidas; 

• nao devem existir circuitos na rede, 
pois ocorreria o fato de uma atividade 
dar origem a si mesma. 

De acordo com a primeira regra aci- 
ma, seria impossivel realizar-se ativida- 
des paralelas. Para contornar este pro- 
blema, introduz-se o conceito de ativida- 
de ficiicia e evento ficticio. Mas, e bom 
lembrar que, embora as atividades ficti- 
cias nao consumam tempo nem recur- 
sos, elas gastam tempo de processamen- 
to e por isto devem ser evitadas. Essas 
atividades s 6 deverao existir quando fo- 
rem estritamente indispensaveis. 

Existem dois metodos para se estabe- 
lecer uma rede: o metodo da regressao e 
o da progressao. 0 primeiro parte do 
evento finalissimo e caminha para o ini- 
cial. 0 metodo da progress^, mais facil 
e mais utilizado, parte do inicio para o 
fim. Tem-se continuamente o seguinte 
pensamento: Qual atividade (ou ati- 

vidades) vem depois desta?” 

DATAS DOS EVENTOS 

Cada atividade recebe um tempo esti- 
mado para sua execu9ao. Elas podem o- 
correr paralelamente ou sobrepor-se a 
outras. Para se obter informa9oes tais 
como a dura9ao do projeto, devem ser 
considerados, a partir do inicio, os pra- 
zos minimos em que as atividades po- 
dem ser iniciadas e os prazos maximos 
para o tdrmino de cada uma dejas. 

Data Cedo de um Evento — fi o tempo 
necessdrio para que o evento seja atin- 
gido, considerando-se que nSo houve 
atrasos (imprevistos nas atividades ante- 
cedentes). 

Data Tarde de um Evento — £ a data 
limite de realiza9ao de um evento. Qual- 
quer execu9ao que passar desta data 
atrasard o projeto planejado. 

Tempo Disponfvel — E o intervalo de 
tempo existente entre a data tarde final 
e a data cedo inicial de uma atividade 
considerada. 

Caminho Crftico - E o caminho de 
maior dura9ao do projeto (evento ori- 
gem - evento objetivo). 

Com rela9ao ds datas limite de inicio 
e termino de uma atividade, temos: 
Primeira Data de Infcio (PDI) - E a pri- 
meira data possivel de se iniciar uma ati- 
vidade. 

Ultima Data de Inicio (UDI) — fi a 



ultima data possivel de se iniciar uma 
atividade. 

Primeira Data de Termino (PDT) - £ a 
primeira data possivel de se terminar 
uma atividade. 

Ultima Data de Termino (UDT) - £ a 
ultima data possivel de se terminar uma 
atividade. 

FOLGAS E RECURSOS 

Chamamos de folga a margem de 
tempo que reflete a flexibilidade da pro- 
grama9ao, que pode ser dividida em livre 
e total. A folga livre (FL) e o atraso md- 
ximo que uma atividade pode ter sem 
alterar a data cedo, fixada, do evento fi- 
nal desta atividade, enquanto a folga 
total (FT) e o atraso maximo que uma 
atividade pode ter sem alterar a data 
final de sua realiza9ao. Ja os recursos 
sao meios utilizados para a execu9do das 



OPCOES 

0. CONSTRUCAO DE UHA REDE 

1. CORRECAO DE DADOS 

2. H0STRA A TABELA DE EVENTOS 

3. M0STRA A TABELA DE ATIVIDADES 

4. MOSTRA 0 GRAFICO DE GANTT E FERIADOS 

5. MOSTRA AS ATIVIDADES CRITICAS 
6-MOSTRA OS RECURSOS UTILIZADOS 

7. CHAMA A REDE DO DISCO 

8. GUAR DA A REDE NO DISCO 
9.SAIDA DO PROGRAMA 



Figura 1 

tarefas. Eles sao geralmente expressos na 
forma de trabalho e podem ser estima- 
dos e alocados a cada atividade. 

O PROGRAMA 

0 programa apresenta inicialmente 
dez op9oes, como mostra a figura 1. 
Vejamos agora algumas considera9oes 
sobre cada uma delas. 

0 . Constru9ao de uma rede - Para 
executar esta parte do programa, deve 
ser feito, previamente, o desenho da re- 
de. No caso, usaremos como exemplo 
a rede que esta no infcio desta matdria. 
0 programa vai solicitar o numero total 
de nos (incluindo os n6s fictfcios); o 
numero total de atividades (incluindo as 
fictfcias) e o numero do evento inicial 
(que geralmente 6 o numero 1, mas po- 
dera ser qualquer outro numero inteiro 
positivo). 

Ap6s a introdu9ao desses dados, de- 
verd corner a introdu9do das ativida- 
des propriamente ditas. Para cada uma 
delas, o programa pede o nome da ativi- 
dade, o numero do evento que a precede 
e o numero do evento que a sucede. No 
caso de esquecimento, o programa man- 
tdm na tela a ultima atividade introdu- 
zida. 



TABELA DE EVENTOS 



EVENTOS 


DC 


DT 


FOLGA 


i 


i 


1 


0 


2 


2 


3 


i 


3 


4 


4 


0 


4 


4 


4 


0 


c 

J 


7 


7 


0 


6 


10 


10 


0 


7 


14 


14 


0 


3 


15 


15 


0 


9 


18 


13 


0 



Figura 2 



Em seguida, ele verifica se a cada ati- 
vidade corresponde um evento. Caso 
contrdrio, e emitida uma mensagem de 
erro, e o programa reinicia a opera92o, 
colocando o MENU novamente na tela. 
Em caso positivo, o programa ordena as 
atividades por seus numeros (Ex.: 1 - 2 , 
1 - 3 , 2-4 etc.) e pede a data de inicio do 
projeto (DDMMAA). Se nenhuma data 
inicial for desejada para o projeto, deve- 
se entrar com “ * ”. Entao, serd pedida a 
dura9ao das tarefas (em dias) e os recur- 
sos alocados para cada atividade. Neste 
momento, a rede jd estd na memdria do 
computador, e sao calculadas as data ce- 
do, data tarde, data das atividades e con- 
seqiientemente o caminho crftico. En- 
quanto o programa 6 executado, apare- 
cem mensagens na tela, entao, o MENU 
e oferecido para a escolha de outro 
item. 

1 . Corre9ao de Dados - Esta op9£o 
dd ao usudrio a oportunidade de fazer 
mudan9as na rede e ver imediatamente o 
efeito que a mudan9a introduz no projeto. 
Todavia, esta facilidade e limitada, ndo 
possibilitando inserir, apagar ou reorde- 
nar as atividades. Ela permite corrigir a 
dura9ao de uma atividade e os recursos 
alocados a ela. Quando todas as mudan- 
9as forem introduzidas, o programa re- 
calcula automaticamente as datas de to- 
da a rede. Essa op9ao possibilita, ainda, 
a mudanfa da data inicial do projeto. 

2 . Mostra a tabela dos eventos — Sera 
dado um relatdrio onde se encontram os 
eventos e suas datas (cedo e tarde) e a 
folga. (Veja a figura 2 ). Estas datas s2o 
apresentadas em numero de dias ocorri- 
dos no projeto. 

3 . Mostra a tabela de atividades - 

Quando este relatdrio for pedido, serao 
dados por extenso todos os oito itens en- 
contrados. Serd pedido, entSo, o nume- >y 
ro de ordem, que pode ser qualquer um m 
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TABELA DE ATIVIDADES - EH TERMOS DE DATAS 




Figura 3 



dos numeros de 1 a 8 (veja a figura 3). 
Dcpois sera fornecida a op 9 ao de relatb- 
rios em forma de data ou em forma de 
dias. No relatbrio em forma de data (fi- 
gura 4) nao aparecera a folga livre e a 
folga total por limita 9 oes no campo de 
impressao. As datas serao impressas na 
forma DD/MM/AA. A forma de dias, 
como mostra a figura 5 , apresentar^ as 
datas em niimero de dias ocorridos no 
projeto. Na frente do numero de cada 
atividade critica aparecerd um “ 

4. Grrifico de Gantt — 0 grdfico apa- 
recera no minimo para cada 60 dias de 
projeto (figura 6) e, no mdximo, para 
240 dias. As atividades criticas tern na 
frente do numero um “ e suasdura- 
9 oes no grafico de atividades tambem sao 
representadas por um “ As ativida- 
des nao criticas serao representadas pelo 
sinal matematico “ > ” (maior que). 

O grafico de Gantt 6 particularmente 
util para se poder ver as varias atividades 
sobrepostas. Tambdm aparecera no gra- 
fico um pequeno calenddrio indicando o 
dia da semana correspondente a cada dia 
do projeto (de segunda a sexta-feira). 
No lugar dos sabados e domingos, ser£o 
impressos brancos, e nos feriados “F’\ 
nao sendo, assim, considerados dias 
uteis. Aparecera tambdm a data no for- 
mato DD/MM/AA correspondente a ca- 
da dez dias do projeto. 

No final do grdfico de Gantt, serd 
impressa uma tabela contendo os feria- 
dos que ocorreram durante o projeto 
(figura 7), mostrando o numero total de 
feriados, a data e o dia da semana. 

5. Mostra as atividades criticas - Se- 
ri fornecido um relatbrio (figura 8) con- 
tendo o numero e nome da atividade 
critica, a sua dura 9 ao, a ultima data de 
Infcio (UDI), no formato DD/MM/AA, 





ATIVIDADE 


DOR 


PDI 


PDT 


UDT 


UDT 


1-2 


A 


i 


19/03/84 


19/03/84 


20/03/84 


20/03/84 


1-3* 


C 


3 


19/03/84 


21/03/84 


19/03/84 


21/03/84 


i-4 


B 


2 


19/03/84 


20/03/84 


20/03/84 


21/03/84 


2-5 


D 


4 


20/03/84 


23/03/84 


21/03/84 


24/03/84 


3-4* 


F 


0 


22/03/84 


22/03/84 


22/03/84 


22/03/84 


3-6* 


6 


6 


22/03/84 


27/03/84 


22/03/84 


27/03/84 


4-5* 


E 


3 


22/03/84 


24/03/84 


22/03/84 


24/03/84 


4-7 


J 


7 


22/03/84 


28/03/84 


25/03/84 


31/03/84 


4-8 


I 


6 


22/03/84 


27/03/84 


27/03/84 


01/04/84 


5-7* 


K 


7 


25/03/84 


31/03/84 


25/03/84 


31/03/84 


6-8* 


H 


5 


28/03/84 


01/04/84 


28/03/84 


01/04/84 


7-9* 


L 


4 


01/04/84 


04/04/84 


01/04/84 


04/04/84 


8-9* 


H 


3 


02/04/84 


04/04/84 


02/04/84 


04/04/84 



Figura 4 




Figura 6 



e o numero de dias ocorridos no projeto. 

6. Mostra os recursos utilizados — 
Aparecera um relatbrio onde serao apre- 
sentados, dia a dia, quantos recursos 
estao alocados em todas as atividades do 
projeto (figura 9). 

7. Chama a rede do disco — Op 92 o 
usada para carregar o micro com uma 
rede previamente gravada no disco. 

8. Guarda a rede do disco — Esta 
op 9 ao serve para gravar no disco a rede 
que estd no micro. Lembre-se que n So e 
possfvel chamar uma rede se outra ja es- 



tiver presente na mem6ria do micro. Na 
tentativa de se fazer isto, sera emitida 
a mensagem “A rede j^ est£ na membria”. 
Isto e feito para proteger a rede, evitan- 
do que acidentalmente sobreponha-se 
uma rede A outra. 

Caso n£o tenha sido introduzida a 
rede, ou nSo se tenha chamado a rede 
do disco, e se tente pedir outra op 9 £o 
do MENU que nao seja 0 (constru 9 ^o da 
rede) ou 7 (chama a rede do disco), serd 
emitida a mensagem de erro “A rede y> 
nao estd na membria”. m 
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NEXUS: o PC mais famoso do Brasil 
esta na Gappy. 



Compre logo um Nexus 1600, um micro versatil para uso 
pessoal ou automagao de empresas, com 256 Kbytes 



de memoria RAM e expansao ate 704 Kbytes. 

O Nexus 1600 e IBM-PC compatfvel e possui caracteristicas 

exclusivas: 

— Trabalha tambem a 8 MHz, o que 
permite uma maior velocidade 
de processamento. 

— Sua placa de sistema ja possui 
duas interfaces de comunica- 
9 ao serial. 

— Monitor de video com tela 4 

basculantee mascara anti- 

— Facilidades na edigao de 



comandos e textos, com o 
simples acionar de teclas. 

Para que voce tenha 
nas maos toda a ver- 
satilidade do Nexus 
1600, a Clappy Ihe 
oferece atendimento es- 
pecializado e as melhores con- 
digoes de prego e pagamento, 
E a Scopus garante a 
mais perfeita assistencia 
tecnica. Como voce 
ve, nunca foi tao facil 
comprar uma memo- 
ria nova. Sem dor 
de cabega. 



M Em mar<;o, 
f o Nexus 1600 
r tem preqo es- 
pecial, e entrega 
imediata. 



SCOPUS 



Centro: Av. Rio Branco, 12 - loja e 
sobreloja - Tel.: (021) 253-3395 

Copacabana: Rua Pompeu Loureiro, 99 
Tels.: (021) 236-7175 - 257-4398 

Visite nossas lojas ou solicite a visita de um representante. 
Atendemos em todo o Brasil pelo Reembolso Varig 



O lado gente da maquina 



SENIOR 
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ATIVlOAOt our 


DATA K WICIO 


DIAS COPRIH-S 


1-3 


C 


3 


14/03/84 


i 


3-4 


F 


0 


22/03/84 


4 


3-6 


G 


6 


22/03/84 


4 


4-5 


l 


3 


22/03/84 


4 


5-7 


V. 


7 


25/03/84 


7 


J-8 


H 


5 


28/03/84 


10 


7-9 


L 


4 


01/04/84 


14 


t-7 


It 


3 


02 '04 '34 


15 





RECURSOS UTILIZADOS 
RECURSOS 



i 5 16 15 20 

DIAS 

1 **** 

2 XXXXXX 

3 xxxxx 

4 xxxxxxxxxxxx 

5 xxxxxxxxxxxx 

6 XXXXXXXXK 

7 xxxxxxxxx 

8 xxxxxxxxx 

9 xxxxxxxxx 

10 xxxxx 

11 XXX 

12 xxx 

13 xxx 

14 xx 

15 ** 

16 xx 



Figura 9 



9. Safda do Programa — Ao se esco- 
lher esta op<To, ser i emitida a mensagem 
“Voce tem certeza de que quer parar? 
(S/N )”. Se for digitada outra letra que 
nao “S” o programa volta ao MENU, de 
forma a n£o se sair do programa sem 
realmente desej^-lo. 

RESTRIQOES DO PROGRAMA 

1. O numero total de dias (incluindo 
sdbados, domingos e feriados) de plane- 



FERIADOS NO PERIODO 



33- 20/04/84-S 

34- 21/04/84- 

43- 30/04/84-S 

44- 01/05/84-T 



Figura 7 

jamento nao pode ultrapassar 240. Isto 
se deve ao fato dos vetores VE$ (calen- 
ddrio) e GND (feriados) estarem dimen- 
sionados para esse numero maximo de 
dias. Um aumento neste dimensiona- 
mento gera um estorno na mem6ria do 
micro. 

2. Na rede, n£o pode haver uma ativi- 
dade cujo n6 predecessor seja maior que 
o n6 sucessor. Tambem n£o se pode 
numerar esses n6s aleatoriamente. A 
numera 9 ao deve obedecer a uma ordem 
crescente e sequential, ou seja, uma rede 
com cinco n6s devera possuir os n6s de 
numero 1, 2, 3, 4, 5 ou 32, 33, 34, 35, 
36 e nunca 1, 3, 5, 6, 7 ou 33, 35, 37, 
39,32. 

3. Quando 6 solicitado o relatdrio Gra- 
fico de Gantt e Feriados (op 9 &o 4), o 
programa demora algum tempo. Entre- 
tanto, nao desligue o micro nem pare o 
programa, pois esta demora se deve a 
montagem dos vetores calendario e fe- 
riados. (0 PROGRAMA NAO ESTA EM 
LOOPING!). 

4. A ordem da emissao dos relatdrios 6 
importante ! So o relat6rio 2 (Mostra a 
tabela de eventos) nao depende desta 
ordem. Ela diz respeito a impress£o dos 
relat6rios antes ou depois da emissao do 
relatorio 4 (Mostra o grdfico de Gantt e 
Feriados). 

Se os relatdrios forem emitidos antes, 
todas as datas e numeros de dias ocorri- 
dos no projeto v£o estar sendo conside- 



Figura 8 



rados como dias corridos, isto e, sem le- 
var em considera 9 So sdbados, domingos 
e feriados. J £ no caso de os relat6rios 
serem emitidos depois, todas as datas 
e numeros de dias ocorridos no projeto 
serao considerados dias uteis, levando 
em considera 9 &o sdbados, domingos e 
feriados. 

5. Os feriados do programa correspon- 
dem aos de 1984. Quando se usar este 
programa deverd ser feita uma mudan 9 a 
na lista de feriados, introduzindo os 
feriados correspondentes e apagando os 
ja ocorridos. Esta lista se encontra na 
linha 1775: 

1775 FeriadoS = “Lista de Feriados” 

Para fazer esta mudan 9 a, aja da se- 
guinte forma: 

- Execute os passos de 1 , 2, 3, 4, 8 
do algoritmo para rodar o programa. 

- Digite “1775” RETURN. 

- Digite “1775 FeriadoS ”=“Lista de 
Feriados” RETURN. 

Onde, a lista de Feriados, entre aspas, 
deverd obedecer o formato “DDMMAA 
DDMMAADDMMAA...”, ou seja, dia, 
mes e ano, cada um com dois digitos e 
sem espa 9 o entre eles. 

6. A unidade de dura 9 ^o das tarefas 6 
dia. N£o e possivel ter-se meio dia, hora, 
etc., na dura 9 ao de uma tarefa. 

7. O nome das atividades pode ter no 
maximo 29 caracteres. 

8. Para nao ocorrer estorno na memdria 
do micro, o numero de atividades a se- 
rem utilizadas deve ser, em media, 60. 



9. O numero maximo de feriados por 
ano 6 igual a 30. 

10. As safdas dos relatdrios estSo tabu- 
ladas para impressora e video c/80 colu- 
nas. 

1 1 . Para os usudrios com impressora 80 
colunas (tipo Monica, por exemplo) e 
conveniente usar o modo texto compri- 
mido. 
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Quanto custa 
transformer um 
terminal remoto 
a TR207num 
microcomputador 
Cobra 210? 



O microcomputador Cobra 210 
e g terminal remoto TR 207 sao primes 
em primeirissimo grau. Os dois foram pro 
jetados para permitir a padronizagao dos 
processos industrials, comaconsequente 
redugao do custo de Mtricagao e do prego ao 
consumidor. 



r 



cobra 




O micro e o terminal utilizam a mesma mecanica, a mesma fbnte de alimentagao e o mesmo 
video, Eles tem pequenas diferengas nas partes eletronicas e nas caracteristicas do teclado. 

Qual a vantagem dessa padronizagao para o usuario? 

Aprimeira e que um micro Cobra 210 pode desempenhar plenamente todas as fimgoes de um 
terminal remoto, sem prejuizo de suas fimgoes de microcomputador. 

A segunda e que um terminal remoto pode ser fadlmente convertido num microcomputador 

Cobra 2 1 0. 0 processo de transform 
magao e simples e o custo e baixo. 

Como voce ve, quando compra 
um Cobra 21 0, voce leva um micro que 
tambem pode funrionar como terminal 
remoto. E quando compra um 
TR 207, voce leva um tenninal remoto 
que pode sertransfbrmado em 
micro, como num passe de magica 
Isso nao e um bom negodo? 
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Descripao das Principals Variaveis 



T£ 

TA 

ACSfTAJ 

ETfTEJJ 



AD(TAJO) 



PT ( m TE) 
SD 

SR {TA} 



TD 



- Numero Total dt Eventas 

- Mini era Total dt A iividadei 

- Vet or que cpnf im o Nom t das /l tividadea 

- Pan coda Event®; 

1. Data Cedo 

2. Data Tnrde 

3. Falsa 

- Para cad a >1 Mvidade ; 

1. Ntitnm da A tividade (ex , : JO 02 -J - 2} 

2. Indica a Ativktod* Qilica: I - Critic® 

0 Mo Crftiea 

J.DufOftiO 

4. Primed* Dais de Initio (PD}} 

5- PfimeiW Datadt Tirmwo {PD 7} 

6- Ultima Data dt fnicio fVDli 

7. Ultima Dura dr Tormina (UDT; 
d.Fvisa Total (FT) 

9- Fotga L iwe (Fl; 

(O.Reeursos 

- Tabet® de precedence 

Colum - represents o evtnto priced en te 
Linlm - represemao tvento i ucessor 

- Tem valor =1 quando a Data Initial t? desejada 
Tem vahr -0 quando ruTo st deseja Data Initial 

- Matrix de Qrdennctio; 

Ao rm*fj de reardenat a matrix AD , <jut? £ gran- 
de, loda vez que se precisat otdenar as ativida- 
des. reortemrse este vetar. 

Cads element® do Vetor SR (TA) cant cm um 
pontdro indkartdo urn# link® da matrix >tD. 
Desta forma, depots de uma ordmacfb, SR 
(l) m 7 e SR (2) *30. Ffttdo, quahdo imprtmti 
AD (?}i sera impress® primeiro se guide de 
AD (SO} 

- A data initial e cotivtrtida no numero total de 
duti a partir de 0} , 0} , / 9 72, 



nrrt f 



SB 

fifty 

DIM 

DIM 

DSi 

Vs M (240) - 
€ fit D (240} - 



0 numtr® a scr adicionado a cada numero de 
atividade, $e o usuAHo tivet coma evtnto initial 
um numero maiOt que 1 
Terr , i valor ^1 sea matrix estd m memdria 
Tern valor = 0 st a matrix ndo ns memdris 
12 pare* de numeral dial etn cads me s de um 
ana mfo bismxtQ 

12 pares de numeral, dios em cade mes de um 
a no bissexto 

12 pares de numeros, total de dins acumulados. 
mes a mes. durante um ana 
Vetor no qua! WO armazenadm os dm da $emti- 
rw do profeto 

Vetor que potsui o ndmern de dm do prole ia 
qut (' feriado 



I.FHHA 


rascHiqto 


w - ** 


Hobrntiiv* euerMd-rivr o mnpar« Jc- dL#n nr 

formlii 0|*. Hr* *■ ^OUWlW l il. t rf Lrn-*.-H* in «h| 

bt Lh1j*i o 1 k- u^oc**** bafil-o <k- r^ n 

q tana . 


fi - ?ki 


THk«« rv+ Iwttea* tft* ■ hk 

tm di ? rWOlUO pqrcdcc * Jo CVCfikn nn 

iL* -jp q ui> nut^fn, Ault.ifr1ii.mrKL> n ■dbhio pr«ftece*“ 
MT por IQ-00 *!• fr«-j'TKki u METIMT ■ 

AciVLdiJr, 1 ~ 1 € 1. 1000 * 1 - H10Z 


ini - 3^0 


Chgn'H B- Dft4«TV0 P* l*ld***4 db *TOFdO hi n-s rlra 

AUVif I Li. 


** a - 


Qbl UB ft 4itft. in LClJll V ^omvvvtw ■:*[* fnj nw»fni tfl- 
tnS tin dlAD * pJrtkfc dir D2.0l.inT?. a u «H|>i r rti UK 

Nl dr!- ilbAft 

■T.ipLlfiJ me* 1 Inlcbftl 


Vfci - 


CHjI no * rMWTJH l-jhL* ill. LV-Ldftdt . 


144 - UB 


Vo.) Etui* ft ! dltni- tTOlki ^ t-Tdio dOi itiVtf-nT O* . 


_*l .l - I1D 


e*3cuL* * fini-^ri 4 dh *M#riTO-ii * u -CMhnbri crFtis?n-, 


- 1-itl 


C* Lrry i « r* a ■ ^ o s-d*di.- HIT . V0I . VIH 1 , r? i 1 

hL. 


55 - 4Z r j 


5vJbrn-tin-n i?HT* cnrrr^id dh ftfldr!-! 


MO - 


, dp LftJM-lft a* trVUflC.r.ife . 




HOd-Lr* .1 EfttHld. lie ftWhtO* . 


111 - HO 


OrdarugM dn r*b*]v rtc AtFv|dHtftn«.. 


0*1 - <H»0 


Maitr* j r*t«l4 rP^ Ulvldsidit ™ tv^Mm Jf dftLft b- 

i» (nreft iLh> dLJLi. 


465 1Q24 


Mu-Ita* bfl *TiVI0*dm oriilloa*. 


HUH - I1D4 


ktUE.IT* Q 7rdikCO tl* Gf«n^ ft cm di-rLjdr-i dfc [Mflft- 
dn- . 

» ■* L n>1 4 r-h ft-B ftS-iVTld-MlrP t r itfcAa. 

1 > ■ i mil La ftb *riMMl*0« nno crltlr-B*. 


m 0 - IJ45 


' PHHET* O fr*l ir.Q Ik- fi-iT'ir an* lit * H *600+- 


1260 - ms 


Cluu ou -lUftfdn * rede- no dliw. 


1 J9fl - st 16 


It* tdzi do prHgr*H- a 2 ru in MfelL . 


151-5 - 5 a MI 


I'11-JBJ it n- o- im un r 1 ia pr n*dLub*k 1 ■- f-fc P- 1 : P*rd- CEHlti- 
T|U3r 4J Jn uq ririb. 


mi IMU 


lnii!i*Eii*G*o- -t-i y 


1465 - 1 4HU, 


CTWtc* n BHni dr Uoh4n Ji; mimfbBdu * rhnn* a 

Bikirol In* 


ivn ~ lH0 


IH^nRinaiMnE* dbu M.i L i' L r0 B . 


14 i lt«$ 


Liduir-a Ju iOf*^*E.O *m dftTB OU n < r H a rO ^ dfAD. 


1411 -r till 


tflpCO-b-BAO d*d> D*t*B 1 IPKWAA 1 ■ 


1554 - 1754 


l'bTouIo Qt* da, 100 ^ 113311 * tdffft., ^u-*kiJi, 

. . , ddmL ntyn p . 


m* - ii5« 


L"ft L-. l u l-i* dQ>& Tl- 1 L.i'Jl -1 . 


<«ii - 


kdBtflqiEft rtn Vn-t-aT r*lrnr3a»- 1«, 



Resit mo do programs 



Pert 



5 HFH -ThH^i-l L D t»0S li-rtKTOS !i^fl 

HfcS ■«* 

Ifl RfM H*- Drtlrtt ld/411 /HI hi* 

15 RI.H L ElNljUAiikHI Brtta IC *W 

IJRDH 

r'Qi N1 H HM PR Oti-H AtlflllAQ Pi H I *■« 

Li* fieri "*H DC? WlIrtHRO 

TOTAL DL Eh roftflft DC m 

l m i ixUhiifirt ? h * h 

Pj ()3 ■ rtUTH INI ( HU / AS M D+J 
a tir> - tfN ■ A7.'> - LN1 UT 
H + DJ) / A^M Tf Dh 1 > *1 LftIO 
4b 

10 TTN * YH rt/:uw OU * (Y, f i- IF 

int * ttn / a* rw.N 

1»N - UN * A/ 

hi rs «■ IV INI iYH / ftu tt* 

/ fil IHkiM U 1 ■ ft/ 

ny. ■ ual e nsu i c o u:+ , nx i ji f 

it us ■} nf, r i iL n oil 05 * n 

l 

bib 11 UN t « Dir iMtr? UJ « 02 ■ 

1*3 £ iwMi b* 



b# L * LL.fr L STfift ID^ Clr" ? > 

vi - oh o^E^ni - srfr% <vsm 
\}£% - Mil + ■ ¥ / , "iV 3 * «■ RI&HH 
tV2 1,-L + nii?5-S * R10HT1 IV 
21**2 + in IF Lt'N (VEtH < 

> 3 THtfr U51 * ** M » V5* 

/€ L - LF.N C Slfil UD3 * N / fl 
3H 

7Tf Lf9 - -ID3 ^ A£H / A3>Dil - 5TRS 
(HV) kG 2» ■ Gi* * 

«L4 c;% - ft KMT * rS2S,L + IJiGBt - 
BtWTi + m IF L'Lfr 

■iDDfc] i > a fME*4 GQ% * + 

GUI 

Ell. AU ' TTN *• AAiABi - GIA1 CfHDT 
M.t m klGMTS. CftUt.AU * im 
11 - vat * GWILS* ■ Lli + ft 
£%3 Rt. TURN 

va Oft F K1 * PH IN I Lfr-t 1 PftINT 3 GOSLPl 
B&TO L4i!& 

95 ftth nut CONST ftLJTrtG Pft HI-DL ■ 

MW 

10# I 1 ft IN T * PRINT ? PRINT 
ALJCftO Dft RFDE" 

10& PRINT i PRINT ? PRINT 1 OLfAl 



G Ffrih£ft& TOTAL UL' N&S^^ 

U# PftINI i PRINT "'■afrCLUIfrDV □& 

N&S F1CTICJ0S? " ? I'KINT ( IMPLIT 
''NVHEflO DC "aftl 

ll& IE - VAL (ftH* IF TE l 3 noiA 
I OS 

120- PRINT : PRINT ! PH ENT ,r flUAL 
■& HUNEftO TGTAI OE AT IV 10*01$ 

7 - 

1£S PRINT s PRINT ,v 1 1 frCLMI 1*00 

ATIVIDftDES FICTIE-CftiiJ"! PRLN1 
b 1NF"UT "MLIhPRG DE ftTmUftflfc 
S " ;* 1 f 

13& Tft ■ VAL IftlTi IT TP < t ODT0 
135 

135 PRINT a PRINT b IfrPLH "OVA| 

O HUNT ft q DO EUEHT 0 IM I Cl AT ? 

"iftl 

14* 5P 41 UAI. {All- - M li SB t # 
oyr* ob 

141 PRINT ; PR [NT ± PfilMJ 1 fill I 
bil : " | N I HflpULftD unb ft T I VI CTftOt 
E H ' 

145 GO^IJR 1000 

I5U rqR ,l = l TO Tft 
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155 IF J = i GOTO 170 
160 PRINT S PRINT 2 PRINT "A ULT 
INA ATIVIDADE INTRODUZIDA FO 
I" 

165 PRINT : PRINT C + SB;"-"jR ♦ 

SB?" " ? AC4 ( J - 1>: PRINT : PRINT 

170 PRINT : PRINT : INPUT "NOME 
DA ATIVIDADE ";AC5(J) 

175 PRINT : INPUT "NUMERO DO EVE 
N TO QUE A PRECEDE ":A16 
180 LET C * -VAL (At) - SB 
185 IF C < > INT <C> OR C < 1 OR 

C > TE - 1 THEN PRINT : PRINT 
"NUMERO INVALIDO": GOTO 175 
190 PRINT s INPUT "NUMERO DO EVE 

NTO QUE A SUCEDE "?A*:R = VAL 
(At) - SB 

195 IF R < > INT (R) OR R < 2 OR 

R > TE OR R * C THEN PRINT 
: PRINT "COMB INACAO 1NVALIDA 
GOTO 175 

200 PT ( R , C ) * 1 : AD ( J , 1 ) = C * 100 

0 + R: NEXT J 

205 REM #** CHECA E ORDENA AS A 
TIVIDADES »«* 

210 PRINT : PRINT : PRINT "CHECA 
R " s Y = 0! FOR C = 1 TO TE - 
1 : X = 0: FOR R = 2 TO TE: IF 
PT(R,C) = 1 THEN X - 1 
215 NEXT R: IF X = 0 THEN Y « is 
PRINT : PRINT "NENHUMA ATIV 
IDADE INICIANDO 0 EVENT0"?C + 

SB 

220 NEXT C: IF Y = 1 THEN PRINT 
: PRINT "0 PROGRAMA SERA REI 
NICIADO "a GOSIJB 1520: RUN 
225 REM #*# SORT POR NUMERO DE 
ATIVIDADE 

230 PRINT "ORDENAR": FOR J = 1 TO 
TA - n FOR K ■ J + 1 TO TA 
235 IF AD ( J , 1 ) < « AD ( K , 1 ) GOTO 

250 

240 A = AD( J r 1 ) : AD( J r 1 ) = AD(K , 1 ) 
:AD(K r l) * A 

245 At => ACt ( J ) : ACt ( J ) » ACt(K):A 
Ct ( K ) = At 

250 NEXT K: NEXT J: GOSUB 260: GOTO 
320 

255 REM *## OBTEM A DATA INICIA 
L E CONVERTE EM NUMERO DE DI 
AS - DESDE JANEIRO DE 1972 * 

** 

260 f»RINT s PRINT "DATA INICIAL" 

: PRINT 

265 PRINT "ENTRE COM A DATA INIC 
IAL DO PROJETO ( DDMMAA ) " 

270 PRINT : PRINT "DIGITE * SE N 
ENHUMA DATA INICIAL FOR DESE 
JADA " 

275 SD = 0= PRINT t INPUT "DATA I 

NICIAL "?SDt: IF SDt = "ft" THEN 
SD = is GOTO 310 

280 D = VAL ( LEFTt (SDt r 2)):M = 

VAL ( MIDt ( SDt ,3,2) ):Y = VAL 
( RIGHTt ( SDt , 2 > ) 

285 IF M < 1 OR M > 12 OR Y < 72 
OR Y > 99 OR D < 1 OR D > 3 

1 THEN PRINT : PRINT "DATA 
INVALIDA": GOTO 275 

290 Y = Y + 1900s IF INT (Y / 4) 

* Y / 4 THEN Dlt = D2t 
295 Y « Y - 1900s IF D > VAL ( MIDt 
(Dlt ,M ft 2 - 1 r 2 ) ) THEN PRINT 
s PRINT "DATA INVALIDA": GOTO 
275 

300 TD * D + (Y - 72) * 365 + INT 
<(Y - 69) / 4) + VAL ( MIDt 
( D3S f 3 * M - 2,3)) 

305 IF M > 2 AND (1900 + Y) / 4 = 

INT ((1900 + Y) / 4) THF.N T 
D = TD + 1 
310 RETURN 

315 REM *** DURACAO E RECURSOS 
PARA CADA ATIVIDADE *** 

320 FOR J = 1 TO TA: PRINT : PRINT 
s PRINT "DURACAO DA ATTVIDAD 
E E RECURSOS ": PRINT 
325 PRINT "ENTRE COM A DURACAO D- 
A ATIVIDADE.": PRINT 
330 F = INT ( AD( J, 1 ) / 1000) :T =- 
AD(J,i> - K * 1000 ♦ SB :F = 

F + SB 

335 PRINT F?"-";T?" ";ACt(J) 

340 PRINT : INPUT "NUMERO DE DIA 
S " ; At : A => VAL (At): IF A < 

0 GOTO 340 

345 AD ( J , 3 ) = A: PRINT : PRINT : PRINT 
"ENTRAR COM AS UNtDADES DE R 
FCURSOS ALOCADAS." 

350 PRINT : INPUT "UNIDADES "?At 
: A VAL (At): IF A < 0 GOTO 
350 



355 Al> ( J , 10 ) = A: NEXT J 

360 REM ftftft DATA CEDO DO EVENTO 

ft** 

365 PRINT : PRINT : PRINT : PRINT 
"CALCULANDO AS DATAS CEDO" 

370 FOR J = 1 TO TE: FOR K = 1 TO 
3 : ET ( J , K ) = 0-* NEXT K: NEXT 
JSET<1,1> = i: FOR R * 2 TO 
TE: FOR C ■ 1 TO TE - 1 
375 IF P T ( R , C > = 0 GOTO 395 
380 AN = C ft 1000 + R: FOR J * 1 TO 
TAs IF AD( J, 1 ) < > AN GOTO 

390 

385 IF AD ( J, 3 > + ET<C,1) > ET(R , 

1) THEN ET ( R , 1 > = AD(J,3) + 

ET ( C , 1 ) 

390 NEXT J 
395 NEXT C: NEXT R 
400 REM ftftft DATA TARDE DO EVENT 
0 ftftft 

405 PRINT "CALCULANDO AS DATAS T 
ARDE" 

410 ET < TE , 2 > = ET(TE, 1 ) : FOR R = 

TE TO 2 STEP - Is FOR C = T 
E - 1 TO i STEP - i 
415 IF P T ( R , C > = 0 GOTO 440 
420 AN = C ft 1000 + R: FOR J «= 1 TO 
TA: IF AD ( J , 1 ) < > AN THEN 

GOTO 435 

425 IF ET < C , 2 > = 0 THEN ET(C,2) « 

ET ( R , 2 ) - AD ( J , 3 ) : GOTO 435 
430 IF ET ( R , 2 ) - AD(J,3) < ET(C, 

2) THEN ET ( C , 2 ) = ET(R,2> 

AD( J,3> 

435 NEXT J 
440 NEXT C: NEXT R 
445 REM ftftft CALCULO DAS FOLGAS 

DAS ATIVIDADES ftftft 
450 FOR J = 1 TO TE :ET( J,3) = ET 
( J,2) - ET ( J , 1 ) : NEXT J 
455 REM ftftft CAMINHO CRITICO ftftft 

460 FOR J = 1 TO TA:AD(J,2> = 0: 

F = INT ( AD ( J , 1 ) / 1000) :T = 

AD < J , 1 > - F ft 1000 
465 IF ET(F,3) = 0 AND ET(T,3> * 

0 AND ET <T , 1 ) - ET<F , 1 > * AD 
( J,3) THEN AD(J,2) = 1 

470 NEXT J 

475 REM ft*» CALCULO DAS PDI PD 

T UDI UDT FL E FT PARA 
CADA ATiyiDADE ft** 

480 PRINT "CALCULANDO AS DATAS D 
AS ATIVIDADES " 

485 FOR J = 1 TO TA:F = INT (AD 
(J,i) / 1000) :T * AD ( J , 1 ) - 
F * 1000 

490 AD ( J , 4 > ■ ET<F,i):AD(J,5) « A 
D ( J, 4 > -f AD ( J , 3 ) - 1 
495 AD( J,7) = ET(T ,2) - i:AD(J, 6 > 

= AD( J,7) - AD ( J , 3 > + 1 
500 AD( J, 8 ) = AD( J, 7> - AD(J,5):A 
D ( J , 9 ) = ET(T, 1 ) - AD( J, 5) - 

1 

505 IF AD ( J , 3 ) = 0 THEN AD(J,5> - 
AD( J,4) :AD( J,7> = AD(J, 6 ) 

510 NEXT J: GOTO 1420 
515 REM ftftft SUBROTINA PARA CORR 
ECAO DA REDE *** 

520 PRINT : PRINT : PRINT " " TAB ( 

14 ) ; "CORRECAO DE DADOS" 

525 PRINT : PRINT "1. CORRECAO DE 
UMA ATIVIDADE" 

530 PRINT : PRINT "2. CORRECAO DA 
DATA INICIAL ": PRINT 
535 PRINT : INPUT "QUAL. 0 NUMERO 
? " ; At s A = VAL (At): IF A < 

1 OR A > 2 GOTO 535 
540 IF A = 1 GOTO 550 
545 GOSUB 260: GOTO 365 
550 PRINT : PRINT : PRINT : PRINT 
" " TAB ( 7 ) ;"CORRECAO DAS AT 
IVIDADES" 

555 PRINT : PRINT "ENTRE COM 0 N 
UMERO DA ATIVIDADE (EX: 1-5)" 

560 PRINT : PRINT "DIGITE ft PARA 
RETORNAR PARA 0 MENU.":Z = 

0 

565 PRINT : INPUT "ATIVIDADE ";A 
t : L = LEN (At) 

570 IF At = "ft" GOTO 365 
575 PRINT : FOR J = 1 TO Ls IF MIDS 
( At , J , 1 ) < > GOTO 585 

580 C = < VAL ( LEFTt (At,J - i)> 

- SB) ft 1000:R = VAL < RIGHTt 
( At , L - J)) - SB :K = C + R:J 

- LsZ = 1 

585 NEXT J: IF Z = 0 GOTO 600 
590 Z = 02 FOR J = 1 TO TA: IF K = 
AD(J,i> THEN Z = 1 :R = JsJ » 

TA 

595 NEXT J 



MIKROS 



• Microcomputadores Pessoais 

e Profissionais, Software, Suprimentos 
e Cursos. 

• Financiamento em ate 18 meses sem 
entrada e os pregos mais baixos do 
mercado. 

• Atendimento perfeito, profissionais 
treinados e habilitados para dar a voce 
a certeza de um bom Investimento. 



EQUIPAMENTOS 

CP-400. CP-500 com 1 ou 2 Drives • 
Apple II Tl com 48K ou 64K • 

I mpressoras ‘Videos* Interfaces • Etc. 

SUPRIMENTOS 

Formulario Continuo • Disquetes • 
Fitas * Mesas * Etiquetas * Etc. 

SOFTWARE 

Nacionais e Importados mais 
de 2.000 programas e 
jogos de todas as linhas. 

CURSOS 

Basic • Basic Avangado e DOS. 



Av. Ataufo de Paiva, 566 
sobreloja 211 e 202 
Rio de Janeiro - R.J. 
Tels.: (021) 239-2798 e 511-0599 



DapoS 

sistemas de banco de dados 
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• dBflSC II "Program. Avangada" 

• dBAS€ III "Program. Basica" 

• LOTUS 1-2-3 "Plan. Cletronko" 

• Framework "Sistema Integrado" 

• Symphony "Sistema Integrado" 

• Wordstar "Processodor de Texto" 

MG. Ml N.° 0819 



MOTCRiniS DIDRTICOS: Publicagoes 
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tMcnicapert 



600 IF 2 = 0 THEN PRINT "NAO EX 
ISTE ESTE NUMERO" : FOR J = i 
TO 2000: NEXT J: GOTO 550 

605 PRINT = PRINT "A DU RAC AO ATU 
AL E " ; AD ( K , 3 ) 

610 PRINT : INPUT " A NOVA DIJRAC 
AO E AS: A = VAL (AS): IF 
A < 0 GOTO 610 

615 AD(K r 3> ” As PRINT : PRINT : PRINT 
"O RECURSO ATUAL E ,/ ;AD<K r 10 
> 

620 PRINT : INPUT "0 NOVO RECURS 
0 E "?AS:A « VAL ( AS > : IF A 
< 0 GOTO 620 

625 AD ( K , 10) = A: GOTO 550 

630 REM #*# SELECAO DA TABELA D 
E EVENTOS **» 



635 PRINT : PRINT : PRINT " " TAB ( 
12 > ; "TABELA DE EVENTOS" 



640 


PRINT : 
ENDENTE: 


PRINT 


" EM 


ORDEM ASC 


645 


PRINT : 

ENTOS " 


PRINT 


TAB ( 


10) 


"l.EV 


650 


PRINT : 
TA CEDO 


PRINT 

// 


TAB ( 


10) 


"2. DA 


655 


PRINT : 
TA TARDE 


PRINT 


TAB ( 


10) 


"3. DA 


660 


PRINT : 


PRINT 


TAB ( 


10) 


"4.TE 



MPO DE DURACAO": PRINT 

665 PRINT : INPUT "NUMERO DE ORD 
EM " ? AS s S = VAL (AS): IF S < 

1 OR S > 4 GOTO 665 

670 FOR J * 1 TO TEsSR < J) = J: NEXT 
J: IF S = i GOTO 700 

675 PRINT " EVENTOS SELECIONADOS 
S «= S - i: FOR J - 1 TO T 
E - is FOR K = J + 1 TO TE 

680 IF ET(SR< J) ,S) < = ET<SR <K ) 

r S) GOTO 690 

685 A = SR < J) :SR < J) = SR(K):SR(K> 

= A 

' 690 NEXT Ks NEXT J 

695 REM »#* EXIBICAO DA TABELA 
DE EVENTOS #»* 

700 PRINT " " TAB < 12) "TABELA DE 
EVENTOS " 

705 PRM 1 

706 PRINT : PRINT : PRINT TAB < 

22); "TABELA DE EVENTOS": PRINT 
: PRINT 

710 Z = 0 : LN = 0: FOR J = 1 TO TE 
:LN = LN + i: IF LN > 48 THEN 
PRINT TAB < 15);NL1S: PRM 0 
: GOSUB 1590 

720 IF Z » 0 THEN PRINT TAB < 1 

5) ? "EVENTOS DC DT 

FOLGA": PRINT TAB < 15) jN 
LIS: Z = 1 

725 K = SR ( J) : PRINT " "?: PRINT 

TAB ( 15 ) ;K + SB? TAB ( 27)?: 

IF N = 1 THEN G0SU8 740: GOTO 
735 

730 PRINT ET <K , 1 ) ? TAB ( 34>;ET(K 
,2); TAB ( 41 > ? ET ( K , 3 > 

735 NEXT : PRINT TAB ( 15)?NL1S: 

PRINT : PRM 0: GOSUB 1520: GOTO 
1420 

755 REM «#* ORDENACAO DA TABELA 
DE AT I VI DADE *** 

760 PRI*ty : PRINT : PRINT : PRINT 

" " TAH ( i31s"TARFI A HF ATT U 





IDADES 


": PRINT 




765 


PRINT 


: PRINT "EM ORDEM ASCE 




NDENTE 


3 " 




770 


PRINT 


T AB ( 10); 


"i. ATIVIDADE 


775 


PRINT 


TAB ( 10); 


"2. DUR AC AO " 


780 


PRINT 


TAB ( 10); 


"3. ULTIMA DA 




TA DE 


INICIO " 




785 


PRINT 


TAB ( 10); 


"4. ULTIMA DA 




TA DE 


TERMINO" 




790 


PRINT 


TAB ( 10); 


"5.PRIMEIRA 




DATA DE INICIO " 




795 


PRINT 


TAB ( 10>? 


"6 . PR IMEIR A 




DATA DE TERM1N0 


" 


800 


PRINT 

AL" 


TAB ( 10); 


"7. FOLGA TOT 


005 


PRINT 

RE" 


TAB ( 10); 


"8. FOLGA LIV 


810 


PRINT 


: INPUT "NUMERO DE ORD 




EM " ? AS : S = VAL 


(AS): IF S 




1 OR S 


> 9 GOTO 


810 


815 


S = S + 


1: IF S * 


2 THEN S * 


820 


X 

PRINT’ 


: PRINT "ATIVIDADES SE 




LECIONADAS": FOR 


J * i TO TA 




: SR ( J ) 


= J: NEXT 


J: IF S = 1 




GOTO 


850 




825 


FOR J 


= 1 TO TA 


- l: FOR K = 




J + 1 


TO TA 




830 


IF AD(SR < J) ,S) < 


= AD(SR (K ) 




,S> GOTO 840 





835 A = SR(J):SR(J> = SR(K):SR(K) 

= A 

840 NEXT K: NEXT J 
845 REM *** EXIBICAO DA TABELA 
DE ATIVIDADE POR NUMERO DE D 
IAS *** 

850 PRINT : PRINT " " TAB ( 12>"T 
ABELA DE ATIVIDADES": GOSUB 
1620: IF N = 1 GOTO 905 
855 Z * 0 :LN = 0: FOR J = 1 TO TA 
:P * SR ( J) :F = INT (AD(P,1> 

/ 1000 ) :T *= AD(P , i ) - F * 1 

000 + SB 

860 F = F + SB : IS * STRS <F):ItS 
= STRS ( T) : BS = IS + + 

IIS 

865 LN * LN + is IF LN > 48 THEN 

PRINT TA8 < 5)?LNS: PRM 0: GOSUB 
1590 

870 PRM ic IF Z = 0 THEN PRINT 

: PRINT : PRINT : PRINT : PRIm 
: PRINT : PRINT : PRINT " " TAB < 
37) ?" TABELA DE ATIVIDADES - 

EM TERMOS DE DIAS": PRINT 
: PRINT TAB ( 5>?LNS 
875 IF Z = 0 THEN PRINT TAB < 2 

6) ? "ATIVIDADE DUR 

PDI PDT UDI UDT 

FL FT REC": PRINT 

TAB < 5) ?LNS 

880 IF AD ( P , 2) = 1 THEN PRINT TAB < 

5) ?BS?"»"? : PRINT TAB ( ID? 
ACS(P)?: GOTO 890 

885 PRINT TAB ( 5>;BS? TA8 < ID? 

ACS< P > ? 

890 Z = 64: PRINT TAB < 41) 

895 FOR K = 3 TO 10:DS(K) = STRS 
( AD (P , K ) ) s Zi = 6 - LEN <DS< 

K ) ) ♦ 18 PRINT SPC< Zl)? STRS 
( AD ( P , K ) ) ? 

900 NEXT K: PRINT i NEXT J: PRINT 
TAB < 5)?LNS: PRM 0: GOSUB 1 
520: GOTO 1420 

905 PRM 1 : Z » 0:LN * 0: FOR J = 

1 TO TAsP ■ SR < J > :F » INT < 

AD(P r 1) / 1000) :T = AD(P , 1 ) - 
F * 1000 ♦ SB 

910 F = F + SB : GS «= STRS <F):G1S 
* STRS <F>:GiS = STRS <T> 

:AS = GS + + G1S 

915 LN » LN ♦ l: IF LN > 48 THEN 

PRINT TAB < 5)?LNS: PRM 0: GOSUB 
1590 

°*0 IF Z « 0 THEN PRINT : PRINT 

: PRINT : PRINT : PRINT : PRINT 
: PRINT : PRINT " " TAB ( 37) 

? "TABELA DE ATIVIDADES - EM 
TERMOS DE DATAS": PRINT : PRINT 
TAB ( 5 > ?LNS 

925 IF Z = 0 THEN PRINT TAB < 2 

6 ) ? "ATIVIDADE 

DUR PDI PDT 

UDI UDT": PRINT 

TAB ( 5 > ;LNS 

930 IF AD< P , 2 ) = 1 THEN PRINT TAB ( 

5) ? AS? "*" ? s PRINT TAB ( ID? 

ACS < P ) ? s GOTO 940 

935 PRINT TAB < 5).?AS; TAB < ID? 

ACS < P > ? 

940 GOSUB 280 

945 Z = 12: PRINT TAB < 53>?:L5S = 
^STRS < AD ( P , 3 ) ) : L6 = LEN (L 
/S>»L7 - 3 - L6 + 18 PRINT SPC< 
L7 ) ? STRS ( AD ( P , 3 ) > ? 

950 FOR K = 4 TO 7:ND = AD(P,K> + 

TD - l: GOSUB 35:Li = 10 - LEN 
<L2S ) + li PRINT SPC( L1)?L 
2S; 

955 NEXT K: PRINT : NEXT J: PRINT 
TAB ( 5 ) ; LNS 

960 PRM 0: GOSUB 1520: GOTO 1420 

965 REM **« EXIBICAO DAS ATIVID 
ADES CRITICAS *** 

970 PRINT : PRINT " " TAB < 10) "A 
TIVIDADES CRITICAS" 

975 Z = 0 : LN = 0: FOR J = 1 TO TA 
:LN = LN ♦ l: IF LN > 48 THEN 
PRINT TAB ( 5)?LNS: PRM 0: GOSUB 
1590 
980 PRM 1 

985 IF Z = 0 THEN PRINT : PRINT 

: PRINT : PRINT : PRINT : PRINT 
: PRINT : PRINT " " TAB < 37) 
"ATIVIDADES CRITICAS": PRINT 
: PRINT TAB < 5>?LN% 

990 IF Z = 0 THEN PRINT TAB < 2 

6 ) ? "ATIVIDADE 

DUR DATA DE INICIO D 
IAS CORRIDOS": PRINT TAB ( 5 
) ;LNS 
995 Z = 1 

1000 IF AD(J,2> « 0 GOTO 1025 



1005 F = INT ( AD ( J , 1 ) / 1000) :T = 

AD ( J , 1 ) - F « 1000 + SB :F = 

F + SB 

1010 JS = STRS <F):KS = STRS (T 
> : AS = JS + + KS 

•015 PRINT TAB < 5)?AS? TAB ( 11) 

? ACS ( J ) ? TAB ( 48>?:L8S => STR1 
(AD ( J , 3 ) ) : L9 * LEN (L8S):L0 
= 6 - L9 + l: PRINT SPC( L 
0)? STRS < AD( J , 3) ) ? 

1020 ND = AD ( J , 6 > + TD - 1: GOSUB 
35:M1 = 15 - LEN (L2S) ♦ 1: 
PRINT SPC( Ml ) ?L2S? : VS ■ STR‘ 
(AD(J,6)):T * LEN (VS):Ti « 

10 - T 1 : PRINT SPC( TD? 
STRS ( AD( J,6) ) 

1025 NEXT J: PRINT TAB ( 5>?LNS: 

PRM 0: GOSUB 1520: GOTO 142 

0 

1030 REM ### GRAFICO DE GANTT * 

*« 

1035 GOSUB 1855 

1040 FOR Ji = 1 TO AD(TA,7> STEP 
60: J3 * Ji ♦ 59 

1045 Z = 0*LN = 0: FOR J = 1 TO T 
A:F K = INT (AD(J,1> / 1000): 

T = AD( J, 1 > - F * 1000 + SB 
1050 F ■* F + SB : JS » STRS (F):KS 
= STRS (T):BS = JS + + 

KS 

1055 LN « LN + i: IF LN > 48 THEN 
PRINT TAB < 15) ?"=»====*==== 
"?LNS: PRM 0: GOSUB 1590 
1060 PRM U IF Z a 1 GOTO 1105 
1065 PRINT : PRINT : PRINT : PRINT 
: PRINT : PRINT : PRINT : PRINT 
TAB ( 47) ? "GRAFICO DE GANTT" 

: PRINT : PRINT TAB ( 15)?"- 
3ia =====*="?LNS 

1070 PRINT TAB ( 37 ) ?"ATI VIDADE 
"?J1? SPC( 3 

)?Ji + 4?: FOR J2 “ 9 TO 59 STEf 
5 

1075 J9 = J2 + JI : PS * STRS (J9> 

:Bi = LEN (PS>:82 * 4 - Bi ♦ 
l: PRINT SPC ( B2)?J9?: NEXT 
J2 : PRINT 

1080 GOSUB 280: GOSUB 1645 
1085 PRINT 

1090 PRINT TAB < 59) ?" ♦ "?: FOR 

J2 s 4 TO 59 STEP 5 

1095 PRINT " +-"? : NEXT *J2: PRINT 

:Z = 1 

1100 PRINT TAB ( 64)?: FOR IJi =* 

Ji TO J3: PRINT VES(IJi)?: NEXT 
IJi: PRINT 

1105 IF AD(J,2> = 1 THEN PRINT 

TAB ( 15 > ?BS? "#"? : PRINT TAB ( 

21 > ? ACS ( J) ? : GOTO 1115 
1110 PRINT TAB ( 15 ) ? BS ; TAB ( 21 
) ? ACS ( J ) ? 

1115 IF ( AD( J r 4 > < Ji AND AD(J,5 
> < JD OR. ( AD( J, 4 ) > J3 AND 





AD ( J , 5 ) > J3> GOTO 1185 




1120 


AS = IF AD ( J , 2 ) = 

AS = 


1 THEN 


1125 


W1 = LEN ( ACS( J) ) : W * 
Wi + 2 


41 - 


1130 


PRINT SPC( W); 




1135 


FOR K = Ji TO J3: IF K 


< AD 




( J » 4 ) OR K > AD ( J , 5 ) THEN 11 




45 




1140 


GOTO 1160 




1145 


IF VES(K> < > " " AND 


VES( 




K) < > "F" THEN PRINT 

: GOTO 1155 


"? 


1150 


PRINT " "f 




1155 


NEXT K 




1160 


FOR K = JI TO J3: IF K 


> = 




AD ( J , 4 > AND K ( = AD(J 


,5) AND 




AD ( J , 3 ) < > 0 THEN 1170 j 


1165 


GO 10 1180 




1170 


IF VES ( K ) ( ) " " AND 


VES ( 




K > ( > "F" THEN PRINT 


AS?: 




GOTO 1180 




1175 


PRINT " "; 




1180 


NEXT K 




1185 


PRINT : NEXT J: PRINT 


TAB ( 




15) ;"==*=======". PRM 0: 




GOSUB 1520: NEXT JI 




1190 


PRM t: PRINT : PRINT : 


PRINT 




: PRINT : PRINT : PRINT 


: PRINT 



: PRINT TAB ( 44 > ?"FERIADOS 
NO PER 1000": PRINT : PRINT TAB ( 

44 > ?" = = ====3===r===3====="- pr int 

: PRINT 

1195 FOR INA * 1 TO 01: IF GND( I 

NA) < =2 OR GND(INA) > J3 THEN 

1205 

1200 PRINT T AU ( 47 ) ? GNp ( INA ) ? : N 
D = GND(INA) + TD - 1: GOSUB 
35: PRINT "-"?L2S GOSUB 
1660: PRINT NS: PRINT : NEXT 



INA 



1205 


NEXT 


INA: PR INI : PRINT 


TAR ( 




0: liOSUII 1520: GOTO 1420 




1210 


RLM 


*** EXIBICAO DO GRAFIC 




0 m 


RE CUR SOB UTILIZADOS 




1215 


J2 ^ 


AD ( I A , 5 ) - i: FOR J 


= 1 



TO J2 STEP 30: PRM 1 : PRINT 
: PRINT : PRINT : PRINT : PRINT 
: PRINT : PRINT : PRINT TAB ( 

15) ; "REC IJR SOS UT1LIZAD0S": PRINT 
: PRINT I AU ( 15>;LNS 
1220 PR INT T AB ( 25)?RSS: PRINT- 
I All < 15);LNS: PRINT T AB ( 1 
5);" 1"?: FOR K = 5 TO 

20 STEP 5: PRINT SPC( 3);: PRINT 
T AB ( K + 1 ) ; K ? : NEXT K 
1225 PRINT : PRINT TAB ( 15)?"DI 
AS" 

1230 J3 = J + 29 : Z = 2D FOR Ji = 

J TO J3 : IF JI > J2 THEN JI = 

J3s GOTO 1255 

1235 X = 0: PRINT : PRINT SPC( 1 

7); 

1240 FOR K - 1 TO TA: IF Ji > = 

AD ( K , 4 ) AND Ji ( = AD(K,5> THEN 

X = X + AD(K,10) V 

1245 NEXT K: PRINT TAB ( i$)?Ji; 

: FOR K * 20 TO 1 STEP - 1: 

PRINT T AB ( Z>;: IF K ( U 
X THEN PRINT "«"? 

1250 NEXT K 

1255 NEXT Ji: PRINT : PRINT TAB ( 

15) ;LNS: PRM 0: GOSUB 1520: NEXT 
J: GOTO 1420 

1260 REM #** CHAMAR A REDE DO D 
ISCO ##* 

1265 INPUT " NOME DA REDE ";NWS 
1270 DS = CHRS (4) 

1275 PRINT DS ? "OPEN" ? NWS 
1280 PRINT DS ? "READ" ; NWS 
1285 INPUT TE, TA,SDS 
1290 GOSUB 1600 

1295 FOR J = 1 TO TE: FOR K = i TO 
3: INPUT ET ( J , K ) : NEXT K: NEXT 
J 

1300 FOR J = 1 TO TE: FOR K * 1 TO 
TE: INPUT PT(J,K>: NEXT K: NEXT 
J 

1305 FOR J = 1 TO TA: FOR K = 1 TO 
10: INPUT AD(J,K>: NEXT K: NEXT 
J 

1310 FOR J = 1 TO TA: INPUT ACS( 

J): NEXT J: INPUT SB r SD 
1315 PRINT DS ? "CLOSE" ? NWS 
1320 GOTO 1420 

1325 REM **# GUARDAR A REDE NO 
DISCO #*# 

1330 INPUT "NOME DA REDE ";NWS 
1335 DS = CHRS (4) 

1340 PRINT DS; "OPEN"; NWS 
1345 PRINT DS ; " WR I TE" ; NWS 
1350 PRINT TE: PRINT TA: PRINT S 
DS 

1355 FOR J = i TO TE: FOR K = 1 TO 
3: PRINT ET ( J , K ) : NEXT K: NEXT 
J 

1360 FOR J = 1 TO TE: FOR K = 1 TO 
TE: PRINT PT ( J , K ) : NEXT K: NEXT 
J 

1365 FOR J = 1 TO TA: FOR K * 1 TO 
10: PRINT AD( J,K ) : NEXT K: NEXT 
J 

1370 FOR J = 1 TO TA: PRINT ACS< 

J) ;CRS ; : NEXT J: PRINT SB;CR 

S; 

1375 PRINT SD: PRINT TD: PRINT D 
S ; "CLOSE" ? NWS : GOTO 1420 
1380 PRINT DS; "CLOSE NWS" 

1385 GOTO 1420 

1390 REM *** SAIDA DO PROGRAMA 

*«* 

1395 PRINT : PRINT "VOCE TEM CER 
TEZA DE GUE QUER PARAR ? ( S/ 

N) " 

1400 GET AS: IF AS = " "GOTO 14 
00 

1405 IF AS ( > "S" GOTO 1420 

1410 PRINT "FIM": END 
1415 REM *** MENU #*# 

1420 PRINT : PRINT : PRINT " " T AB ( 

7 )"OPCOES" 

1425 PRINT "0.CONSTRUCAO DE UMA 
REDE " 

1430 PRINT "l.CORRECAO DE DADOS 

1435 PRINT "2. MOST RA A TABELA DE 
EVENTOS " 

1440 PRINT "3- MOSTRA A TABELA DE 
ATIVIDADES " 

1445 PRINT "4. MOSTRA 0 GRAFICO D 

E GANTT E FER I ADOS" 



1450 PR IN I "5. MONIKA Aii AT IV I l?AI> 
LS CRIMEAN" 

1455 PKJNI "6.M0H1KA OS RLCIIR SOS 
UMLIZADOS " 

1 4<s0 PR INI "7 - (‘HAMA A REDE DO DJ 
SCO " 

1465 PR IN I "O.GUARDA A REDL NO I) 
ISCO " 

1470 PR IN I "9. SAIDA DO PROGRAMA 

1475 PRINT : INPUT "OUAL 0 SEU N 
UMLRO ' ;AS 

1480 A = VAL (AS): IF A < 0 OR A 
> 9 GOTO 1420 

1485 IF (A = 0 OR A = 7) AND NW « 
i GOTO 1500 

1490 IF ((A > 0 AND A < 7 >■ A = 

8) AND NW = 0 GOTO' 1505 

1495 NW = 1 : GOTO 1510 

1500 PRINT : PRINT " A REDE JA E 
STA NA MEMORIA ": GOSUB 1520 
: GOTO 1420 

1505 PRINT : PRINT " A REDF. NAO 
ESTA NA MEMORIA ": GOSUB 152 
0: GOTO 1420 

1510 ON A + 1 GOTO 100,520,635,7 
60,1035,970,1215,1265,1330,1 
395 

1515 REH *#* PAUSA *** 

1520 PRINT : PRINT TAB ( 8>"PRES 
SIONAR ESPACO PARA CONTINUAR 

1525 GET AS: IF AS < > " " GOTO 

1525 

1530 RETURN 

1535 REM ### INICIAL J.ZAR *#* 

1540 LNS — "s=sss=sss=ssss=sssr=: 




1545 D1S = "312831303130313130313 
031" 

1550 D2S = "312931303130313130313 
031" 

1555 D3S = "000031059090120151181 
212243273304334" :TFS = "=":F 
FS = 

1560 J = 0 : K = 0-*Dl = 0 : D2 = 0:03 
= 0: YN = 0 : ND = 0:DN = 0:TD 
- 0 

1565 Ai = 34 : A2 = 365*-A3 = 3:A4 = 

4: AS = 31 : A6 = 72:A7 = 1:A8 = 

2 

1570 C = 0:R = 0: X = 0:A = 0:D = 

0:M * 0 : Y = 0:SD = 0:F = 0:T 
= 0:S * 0 :P = 0 : AN = 0 

1575 SB = 0 :TA = 0:TE = 0:LN = 0: 

NW = 0:N - 0 

1580 AS = "" : BS = "":DS *» "":SDS = 
"":DS = "" :CRS = CHRS (13): 
RETURN 

1585 REM «*» LINHA DE CORRESPON 
DENCIA DA TELA *#* 

1590 GOSUB 1520:LN = HZ = 0: RETURN 

1595 REM ih»# D I MENS I ON AMENT 0 DA 
S MATRIZES #** 

1600 DIM ACS < TA ) , PT ( TE , TE ) , AD( TA 
, 10) ,ET(TE,3) 

1605 Z = TE: IF TA > TE THEN Z = 

TA 

1610 DIM SR ( Z > : RETURN 

1615 REM *#» ESCOLHA DO FORMATO 
EM DATA OU NUMERO DE DIAS * 

ft* 

1620 IF SD = 1 THEN N * 2: GOTO 
1640 

1625 PRINT : PRINT "TABELAS EM T 
ERMOS DE:-i. DATAS " 

1630 PRINT TAB ( 23>"2.DIAS": PRINT 

1635 PRINT : INPUT "QUAL 0 SEU N 
UMERO? " ? AS : N = VAL (AS): IF 
N < 1 OR N > 2 GOTO 1635 

1640 RETURN 

1641 REM *#* 1MPRESSA0 DAS DATA 
S *** 

1645 ND *= Ji + TD - i: GOSUB 35: PRINT 
TAB ( 62 ) ?L2S ? : DA = LEN (L2 
S ) : DAI * 5 - DA + 5: PRINT SPC( 
DAI ) ; 

1650 FOR J6 = 9 TO 59 STEP 10= J7 
= J6 + J15ND = J7 4- TD - i: 

GOSUB 35: PRINT L2S;:DA = LEN 
(L2S) :DA1 = 5 - DA 4- 5: PRINT 
SPC( DAI)?: NEXT J6 

1655 RETURN 

1656 REM **» CALCULO DO DIA DA 
SEMANA **# 

1660 Y = VAL ( RIGHTS (L2S,2)):M 



® VAL ( MIDS (L2S, 4,2) ) :D = 
VAL ( LEFTS ( L2S , 2 ) ) 

1665 ME = M : AN 1 = Y:DI = D 
1670 IF ME > 2 THEN 1685 
1675 ME = ME 4- 12 
1680 AN1 = AN1 - i 
1685 AN1 = AN1 4- 1900 
690 NS = DI + 2 * ME 4- INT (.6 » 
(ME + D) + AN1 + INT ( AN1 / 

4) - INT ( AN1 / 100) + INT 
(ANi / 400) 4- 2 

1695 NS = INT ((NS 77- INT (N 
S / 7)) * 7 4- .5) 

1700 IF (NS) > 0 THEN 1710 
1705 NS = " GOTO 1765 
1710 IF NS > 1 THEN 1720 
1715 NS = " ": GOTO 1765 
1720 IF NS > 2 THEN 1730 
1725 NS = "S": GOTO 1765 
1730 IF NS > 3 THEN 1740 
1735 NS = "T": GOTO 1765 
1740 IF NS > 4 THEN 1750 
1745 NS = "0": GOTO 1765 
1750 IF NS > 5 THEN 1760 
1755 NS = "Q": GOTO 1765 
1760 NS = "S": GOTO 1765 

1765 RETURN 

1766 REM **« CALCULO DOS FERIAD 

05 »** 

1770 G0SU8 280 

1775 FERIADOS = "2501840503840603 
8407038420048421048430040401 
0584210604220684070984121084 
0211841511041611842412842512 
84311284" 

1780 DMAS = SDS 

1785 FERIADOS = FERIADOS + DMAS 
1790 0 = LEN (FERIADOS) :0i = 0 

6 

1795 M5 = 1 

1800 FOR M3 * 1 TO 0 - 5 STEP 6 
1805 Ml = M3 + 2 : M2 = M3 + 4 
1810 LDI A * VAL ( MIDS (FERIADOS 
, M3 , 2 ) > 

1815 LMES = VAL ( MIDS (FERIADOS 
, Mi , 2 ) ) 

1820 LANO = VAL ( MIDS (FERIADOS 
,M2,2)> 

1825 LTD2 = LDIA ♦ (LANO - 72) # 

365 + INT ((LANO - 69) 7 4) 

+ VAL ( MIDS ( D3S , 3 * LMES 
- 2,3) ) 

1830 IF LMES > 2 AND a900 + LAN 
0) / 4 = INT ((1900 + LANO) 

/ 4) THEN LTD2 = LTD2 + 1 
1835 AB9 * LTD2 - TD ♦ 1 : IF AB9 < 

0 THEN 1845 

1840 GND(M5> = AB9:M5 = M5 + 1 
1845 NEXT M3 

1850 RETURN 

1851 REM *#* MONTAGEM DO VETOR 
CALENDARIO *** 

1855 DIM VES ( 240 ) , GND ( 240 ) 
i860 GOSUB 280: FOR N1 = 1 TO 24 
0 : ND =Ni + TD - i 
1865 GOSUB 35 

1870 GOSUB 1660 

1875 VES(Ni) = NS 
1880 NEXT Ni 
1885 GOSUB 1770 

1890 FOR MN1 = 1 TO 240:ABi = GN 
D(MNi) 

1895 IF ABi < =2 OR AB 1 > 240 THEN 

1905 

1900 rOS = "F": VES (ABi) = FOS 
1905 NEXT MN1 
1910 FOR J = 1 TO TA 

1915 FOR K n 1 TO 240: IF K < AD 

( J , 4 ) THEN 1925 
1920 GOTO 1940 

1925 IF VES(K > ( > " " AND VES( 

K> < > "F" THEN 1960 

1930 AD ( J , 5 ) = AD( J , 5 > + i:AD(J,4 
) = AD ( J , 4 ) + i :AD( J,6> = AD 
(J,6> + 1 :AD( J,7> = AD ( J , 7 ) + 

1 

1935 GOTO i960 

1940 IF K > = AD( J , 4 ) AND K ( = 

AD(J,5) THEN 1950 
1945 GOTO i960 

1950 IF VES(K> ( > " " AND VES( 

K) < > "F" THEN GOTO i960 

1955 AD(J,5> = AD(J,5> + 1:AD(J,7 
) = AD ( J , 7 ) + i 
t I960 NEXT K 
• 1965 NEXT J 
1970 RETURN 
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Complete seu sistema de redes PERT com um Numerador 
Topologico que apronta seus dados para rodar no programa 
Analise do Caminho Critico, da Microsoft 



Renumerador 

Topologico 

Evandro Curve to Hora 



A tnaiona dos programas para calculo do caminho crf- 
tico (em redes Pert) aceita apenas o grafo topologi- 
co. 0 programa a seguir, desenvolvido para os equi- 
pamentos da linha Sinclair com 16 kb, renumera um grafo to- 
pologicamente. 

Um grafo e dito topologico se existir um arco do no I para 
o no J. Este arco e tal que J> I, qualquer que seja o arco (I, 
J), ou seja, so podem existir arcos que saiam de um no numera- 
do para outro no de numera^ao superior. Veja as figuras 1 e 2. 

O grafo da figura 1 e topologico, pois todo arco que sai de 
um no vai para outro no de numerat^ao superior. Ja no grafo 
da figura 2 isto nao acontece, pois o arco 5 sai do no 4 para o 
n6 3. 

Um grafo nao topologico (figura 2) nao e aceito pelo pro- 
grama Analise do Caminho Cri'tico, da Microsoft, para a linha 
Sinclair. Se o grafo tern poucos nos e poucas atividades (arcos), 
pode-se renumera-lo manualmente. Porem, redes reais exigem 
normalmente muitos nos e/ ou arcos, o que torna o problema 
muito dificil, dai' a justificativa deste artigo. Na Pesquisa Ope- 
racional, uma das maneiras de se representar um grafo e a cha- 




Figura 1 



mada Matriz de Adjacencia, e o programa apresentado e um 
manipulador desta matriz. 

Com o numerador topologico ja na RAM do seu micro, 
inserindo-se o grafo da figura 2, tem-se como resposta: 




Figura 2 
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Renumerador Topologico 



1 PEM XXXXXXXXXXXXXXX 

2 PEM 

3 PEM *NUMERRDOR TOPOLOGICO * 

4- PEM = EURNDRO CURUELO-84 = 

5 PEM 

5 PRINT RT 9 4; " NUMERRDQR TO 
P0L0GIC0 “ 

7 FOR 1=1 TO 200 
3 NEXT I 
20 LET 50=22 
30 GOSUB 950 

40 PRINT RT 9 O.’OURL 0 NUMERO 
DE NOS DO GRRFO ?“ 

50 INPUT P 
60 DIM R ( P , P > 

70 DIM S(P) 

SO DIM U(P> 

90 DIM R(P) 

100 LET K =0 
110 LET SC =10 
120 GOSUB 960 

130 PRINT hT 9,1; -©URL 0 NUM . D 
E RTIUIDRDE5 ?“ 

140 INPUT N 
150 FOR X=1 TO N 
160 LET SC =4 
170 GOSUB 960 

130 PRINT RT 15.4, “RTIUIDRDE = > 

“ ; X 

190 PRINT RT 17,4; "NO INICIRL 7 

200 INPUT I 

210 PRINT “= = => " ; I 

220 PRINT RT 19.4, “NO FINRL 7 

230 INPUT J 

240 PRINT “===i “ ;j;RT 21.4. “CO 
NFIRMR 7 ( S /N J " 

250 IF IN KEY $ = “ THEN GOTO 250 

260 IF INKEY $ = “5" THEN GOTO 300 

270 LET SC =10 

280 GOSUB 960 

290 GOTO 138 

380 LET SC=10 



310 GOSUB 960 
320 LET R 1 1 , J ) = 1 
330 NEXT X 
340 LET 50=21 
358 GOSUB 968 

350 PRINT RT 18,10. “RGURRDE 

370 FOR X=1 TO 40 

330 NEXT X 

390 FP5T 

480 CLS 

418 LET X=0 

420 FOR J=1 TO P 

430 FOR 1=1 TO P 

440 LET X =X +R 1. 1 , J 1 

450 NEXT I 

460 LET SlJ)=X 

470 LET X=0 

480 NEXT -J 

490 FOR 1=1 TO P 

508 LET VtI)=I 

510 NEXT I 

520 FOR U=1 TO P 

530 FOR X=i TO P 

540 IF U=U (X) RND S(U)=0 THEN G 
0T0 580 
550 NEXT X 
560 NEXT U 
570 GOTO 678 
530 LET K =K + 1 
590 LET U(Xf=0 
600 FOR 1=1 TO P 
618 IF H(U,Ii ol THEN GOTO 648 
620 LET S> I) =5 CD-I 
630 LET RCU,D=0 
640 NEXT I 
650 LET R(K)=u 
660 GOTO 528 

678 IF K=P THEN GOTO 710 
680 5 LOU 

598 PRINT RT 9,4. “0 GRRFO NRO P 
ODE SER" ; RT 11,2; “NUMERRDO TOPOL 
0G ICRMENTE ' 

700 GOTO 890 



710 SLOU 

720 PRINT RT 4.-3, 



730 PRINT RT 5,4;“NUMI 
OLOG ICR " 

740 PRINT RT 6,3, “ 



NUMERRCRO TOP 



==> PRRR CON 



•*** FIM ***" 



750 LET 1=1 

760 FOR K=I TO 1+5 

770 PRINT 

730 IF K >P THEN GOTO 380 
790 PRINT TRB 5. “NO “ R (K) J “ == 
= > “ ; K 
800 NEXT K 

810 PRINT RT 28,0, “==> PRRR CON 
TINURR PRESS I0NE“ , RT 21 , 10 : " UMR 

T 320^IF INKEY$=‘ “ THEN GOTO 320 
83© LET 1=1+5 
848 LET SC =22 
850 GOSUB 960 
860 PRINT RT 3,3 
870 GOTO 760 

880 PRINT TRB 7:“**+ FIM ***" 
390 PRINT 

908 PRINT RT 21,0 “ DESEJH RuDhR 
NQURMENTE 7 (S/N) “ ^ _ 

PI© IF INKEY $=”“ THEN GOTO 9 10 
920 IF INKEY $ = “ N” THEN STOP 
930 RUN 20 
940 5RUE “NUMTOP" 

950 PUN 

960 FOR U = 1 TO SC 
970 LET E =USR (16514) 

930 NEXT U 
990 RETURN 

1008 FOR 1=15514 TO 16523 
1010 INPUT R$ _ 

1020 POKE I, CODE fi$*16+C0DE h$ <= 
) -476 

1030 NEXT I 

•1 OiA DDT KIT wT ] 0 . 12 , “ F IM ‘ 



Ou seja. os nos 1 e 2 nao precisam ser renumerados; entre- 
tanto, o no 3 deve ser renumerado com ordem 4, e o no 4 com 
ordem 3. Isto reduz o grafico da figura 2 ao grafico da figura 1 , 
que e topologico e roda, sem problemas, no Pert da Microsoft. 

Experimente dar uma numera^o topologica ao grafo da fi- 
gura 3. 

Na tela, ao rodar, o programa pede o numero de nos do gra- 
fo; entao entra-se com 5 e <NEWLINE> . Logo apos, ele pede 
o numero de atividades e tern como resposta 8. A seguir, e 
pedido, para a atividade 1 , o no inicial; digite 5. Neste momen- 
to, e pedido o no final, entao, responda com 2. Depois, e pre- 
ciso confirmar a resposta entrada com sim<S>ou nao<N>; 
fa$a o mesmo com todos os arcos. Ao confirmar a entrada 
do ultimo arco, o programa pede que aguarde e entra em 
FAST, retornando ao SLOW ja com resposta. Note que, neste 
caso, nao e possi'vel a numeragao topologica, uma vez que o 
grafo da figura 3 representa um ciclo (saindo do no 5, seguindo 




Figura 3 



as atividades 2, 6 e 3 e voltando ao n6 5). Tente trocar agora o 
sentido da atividade 3, de modo que saia de 5 e va para 3, e ve- 
ja a resposta. Como curiosidade, experimente, tambem, ten- 
tar renumerar topologicamente um grafo ja topologico. Tome 
como exemplo o grafo da figura 1 . 

INSTRUgOES PARA DIGITAgAO 

Crie uma linha REM com 15 caractcres quaisquer. Isto per- 
mite guardar uma rotina em linguagem de maquina que Simula 
o SCROLL, sem as desvantagens que o SCROLL normal apresen- 
ta. A seguir, digite as linhas 1000 a 1040. De um GOTO lOOOe, 
ao aparecerem as aspas, entre com os seguintes valores em he- 
xadecimal (apos o 2A, digite <NEWLINE> e assim por diante): 

2 P -J _ 4* T Z 11 1. r 1 00 X =• -• j. 01 O E> 

Ao terminar, se tudo correr bem, retire as linhas 1000 a 
1040 e entre com o resto do programa ate a linha 990. Para 
evitar o risco de digitar a linha 1 Jdigite POKE 16510, 0. f De um 
LIST e seu programa estara pronto, fi so testar com os exem- 
plos citados e gravar com GOTO 940. 

m 
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Para empresas que trabalham com grande numero de duplicatas, este progra- 
ma para a linha TRS-80 Mod. Ill vai agilizar o Departamento Financeiro. 



Em dia com as 
duplicatas 

Paulo de Carvalho 



ste programa permite ao usud- 
rio um controle de duplicatas 
pen dentes de pagamento, alem 
de oferecer as op 9 < 5 es de con- 
sulta por sacado, por data, por sacado 
em determinado periodo, listagem geral 
de pendencias (vincendas/vencidas), lis- 
tagem de duplicatas vencidas, baixar/de- 
letar e listagem de duplicatas baixadas 
(pagas). 

Ap 6 s digitado o programa, execute-o 
com RUN. Na tela, aparecerd Digite a 
data na forma AAMMDD, ap 6 s o que 
deverd ser digitado o ano, mes e dia, nes- 
ta ordem, e sem qualquer sepa^do. Es- 
sa regra deve ser seguida rigorosamente, 
pois isto facilita a pesquisa por data e a 
listagem de duplicatas vencidas. Apos a 
entrada da data, o programa mostrard o 
menu principal, que dd acesso a 12 m 6 - 
dulos optativos, conforme pode ser vis- 
to a seguir: 

COBRANCA 
ENTRADA DE DUPLICATAS. « i 
LISTAGEM/ GERAL DUPLIC ■ „ ■ ~ 2 

LISTAGEM P/DATA - 3 

LISTAGEM P/SACADO . 4 

LISTAGEM P/SACADO E DATA- 5 
LISTAGEM DUP LIQUIDADAS.- 6 
LISTAGEM DUP MENCI DAS * . . - 7 
BAIXAR/DELETAR DUPLIC...- 8 



ALTER AR DADOS - 9 

CONTINUAR ARQUIVO - 10 

GRAUAR ARQUIVO it 

L.ER ARQUIVO 12 



DIGITE A OPCAO ? - 



ENTRADA DE DUPLICATAS 

Ao digitar 1 e ENTER o programa 
exibird o menu de entrada de duplicatas, 
forma do pelos seguintes itens: 

• ITEM 1 — Vencimento — digitar na 
forma AAMMDD. 

• ITEM 2 — N9 Duplicata — Entrar 
com o numero da duplicata, que deverd 
ter no mdximo quatro caracteres (9999). 
Evite tambem entrada de duplicatas 
com o mesmo numero. 

• ITEM 3 — Situa^o — Durante a en- 
trada de duplicatas, o sistema aceitard 
somente a situa 9 do 1 (um). Se o usudrio 
digitar qualquer outro numero o sistema 
retornard ao item acima. 

• ITEM 4 - Banco/Cobrador — Digitar 
o cddigo do Banco no qual a duplicata 
estiver em cobran 9 a. No caso da cobran- 
9 a estar na dependencia do favorecido, 
use o cddigo 111. Estes cddigos nSo po- 
dem ultrapassar os tres caracteres. 

• ITEM 5 — Sacado - Entrar com o 
nome do sacado, usando no mdximo 22 
caracteres, contando os espa 90 s. 

• ITEM 6 - Valor — Digite o valor da 
duplicata de forma ininterrupta, pois o 
sistema formatara a saida. Ex.: para o va- 
lor Cr$ 388.900,00, digite Cr$ 388900. 
Na listagem, o sistema forma tard a saida 
para Cr$ 388.900,00. Quando a dupli- 
cata possuir centavos, use ponto antes 
dos centavos. Ex.: para o valor Cr$ 
388.900,88; digite Cr$ 388900.88. 
Ap 6 s digitar o valor e teclar ENTER, o 
sistema retornard ao menu de entrada e 



o numero seqiiencial do topo da tela se- 
rd 2 e assim sucessivamente. Para voltar 
ao menu principal, tecle 9 no lugar do 
vencimento. 

LISTAGEM GERAL 

Atraves desta op 9 do o programa lista- 
rd todas as duplicatas pendentes de pa- 
gamento (vincendas e vencidas) em gru- 
po de oito, com sub-total acumulado. 
Quando aparecer a ultima duplicata do 
arquivo, serd emitida a mensagem FIM, 
seguida do total geral. 

LISTAGEM POR DATA 

Este m 6 dulo permite pesquisar todas 
as duplicatas com vencimento em deter- 
minado periodo. Assim, se o usudrio de- 
sejar saber quais sdo as duplicatas com 
vencimento entre 3 de agosto e 22 de 
outubro de 1984, basta digitar 3 seguido 
de ENTER, que o sistema perguntard: 
“Qual a data initial?”. O usudrio deverd, 
entffo, digitar na forma AAMMDD, isto 
e, 840803; e teclar ENTER. Em seguida, 
o programa indagard “Qual a data fi- 
nal?”. O usudrio deverd digitar 841022 e 
teclar ENTER. No video aparecera uma 
listagem semelhante d listagem geral. 

LISTAGEM P/SACADO 

Ao digitar 4, o sistema perguntard: 
“Qual o sacado?”. O usudrio deverd en- 
trar com o nome do sacado e o progra- 




ma iniciard a listagem de todas as dupli- 
catas existentes com aquele nome. 

LISTAGEM P/SACADO E DATA 

Entrando com a data de initio e fim 
do periodo desejado, mais o home do 
sacado, o usudrio obterd uma listagem 
com todas as duplicatas do sacado em 
um periodo estabelecido. 



LISTAGEM DUPLICATAS 
LIQU1DADAS 

Atraves desta op^o, o usudrio pode- 
rd verificar todas as duplicatas liquida- 
das existentes em arquivo. A forma de 
liquida 9 do serd comentada na op 9 ?o 8 . 

LISTAGEM DE DUPLICATAS 
VENCIDAS 



mesmo numero). Uma vez dado o nu- 
mero, o sistema pesquisard e mostrard 
no video todos os dados relativos d du- 
plicata, seguidos da pergunta “fi essa a 
duplicata a liquidar/deletar S/N?”. Em 
caso positivo, o sistema exibird duas op- 
90 es: 2 — para liquidar; e 3 — para dele- 
tar. A diferen 9 a entre essas duas op 9 < 5 es 
6 que na op 9 do 2 o sistema liquidard a 
duplicata alterando automaticamente a 
situa 9 do de 1 (pendente) para 2 (liqui- 
dada) e manterd todos os dados no ar- 
quivo; enquanto na op 9 do 3 ele altera- 
rd todos os itens numdricos para zero e 
eliminard todos os alfanumdricos. Isto 
poderd ser visto atravds das op 95 es 2 ou 
7. Embora os itens estejam com os cam- 
pos zerados, eles continuam ocupando 
espa 90 na memdria RAM e no video, 
mas n£o se preocupe, pois isto serd re- 
gularizado quando for feita a grava 9 do 
dos dados no cassete, uma vez que o sis- 
tema isentard de grava^o todas as dupli- 
catas que estiverem com data de venci- 
mento zerada. 

Se houver no arquivo duas duplicatas 
com o mesmo numero, verifique, quan- 
do exibida no video, se 6 a que voce de- 
seja baixar. Caso contrdrio, digite N e o 
sistema ird pesquisar a prdxima duplica- 
ta com o mesmo numero. Se for infor- 
mado o numero de duplicata que ndo 
consta do arquivo, serd mostrada a 



mensagem DUPLICATA INEXISTEN- 
TE, e ap 6 s alguns segundos, o sistema 
retornard ao menu principal. 

ALTERAQOES 

Todos os dados de uma duplicata po- 
derdo ser alterados com esta op(flo, ex- 
ceto a situa 9 £o, que e obrigatdria. Todos 
os itens para altera 9 &o devem seguir as 
mesmas normas da entrada de duplica- 
tas. Ap 6 s teclar 9, o sistema perguntard: 
“Qual o n9 da duplicata?”. Entrando 
com o numero, serdo exibidos todos os 
dados vinculados dquela duplicata. O sis- 
tema perguntard “E esta a duplicata a 
alterar?” Se nSo for, tecle N e o siste- 
ma continuard a pesquisa localizando a 
pr 6 xima duplicata com o mesmo nu- 
mero. 

Para fazer a altera(ffo nSo 6 necessd- 
rio entrar com todos os dados novamen- 
te, mas apenas com os dados que se re- 
ferem ao item a ser alterado. Nos de- 
mais, tecle ENTER e o sistema desvia- 
ra para o pr 6 ximo campo. 

CONTINUAR ARQUIVO 

Se o usudrio jd possuir um arquivo 
gravado em cassete com 50 duplicatas e 
desejar cadastrar outras 50, basta fazer ^ 
a leitura de dados atraves da OP 9 S 0 1 2 e m 



O ponto chave de compara 9 d'o para a 
emissdo desta listagem e a entrada corre- 
ta da data na forma AAMMDD, solicita- 
da na abertura do sistema. A listagem se- 
rd identica ds fomecidas pelos itens an- 
teriores. 

BAIXAR/DELETAR DUPLICATAS 

Ao digitar esta op 9 db, o sistema per- 
guntard “Qual o n9 da duplicata?” (por 
isso, deve-se evitar duplicatas com o 



E INCRlVEL O QUE 
UM BOM PROGRAMA 
PODE FAZER. 




O cibaco, para quern domina sua tecnica, permite a execu^ao de contas 
aritmeticas com incrivel velocidade. 

Da mesma forma, quern possui um microcomputador e um bom programa 
economiza tempo, papel e aborrecimento. 

A Nasajon Sistemas, tern k sua disposijjao mais de 50 programas como 
folha de pagamento, crediario, mala direta etc. . . . para aproveitar ao m&- 
ximo o que o seu microcomputador pode oferecer. 

Alem disso, a Nasajon Sistemas pode desenvolver programas especificos 
para a sua necessiaade, seja ela qual for. 

Todos os nossos programas sao garantidos e atualizados. 

Entre em contato com a Nasajon Sistemas. Estamos sempre dispostos a 
conversar e esclarecer qualquer duvida que voce possa ter sobre infor- 
matics 

E quando seu microcomputador estiver funcionando com um programa da 
Nasajon, voce vera as coisas incnveis que ele pode fazer. 



&?!ysr 45 - ” 

JXflSwOf Tels.: (021) 263-1241 e 233-0615 




Voce encontra os programas NASAJON tambem nos seguintes endere^os: 

Rio de Janeiro: Casa Garson: 252-9191; 325-6458; 541-2345 e 252-2050 - R. 179 - Eldorado Computadores: 227-0791 - Bits e Bytes: 322-1960 
Salvador Officina: 248-6666 - r. 268 Sao Paulo: Microprocess: 64-0468 - Jundiai SP- Apoio Com. Informatica Ltda: 51-3778 - Tatui - SP 
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EM DIA COM AS DUPLICATAS 



logo ap6s entrar com a op^o 10. 0 sis- 
tema iniciard a leitura interna da varid- 
vel de controle e ap6s alguns segundos 
aparecerd no video o menu de entrada 
de dados, com o numero seqiiencial 51, 
no topo da tela. 

GRAVAR ARQUIVO 

Todos os dados de entrada de dupli- 
catas, altera?(5es e deletes podem ser 
arquivados em fita cassete com esta 
opsSo, que tamb&n permite gravar a 
continua^ffo de arquivo. 0 sistema mos- 
tra a mensagem “Grava^o — Prepare o 
K-7 e tecle (ENTER)”. Ap6s a grava- 
9 ffo da ultima duplicata, o programa re- 
toma ao menu principal. 



LER ARQUIVO 

A fun^o desta op 9 Sb 6 ler todos os 
dados arquivados em fita cassete. Ap6s 
a leitura da Ultima duplicata, o progra- 
ma retorna ao menu principal. 

OUTRAS INFORMAQ0ES 

Ap6s a entrada de duplicatas, altera- 
90 es, deifies e liquidates, deve ser 
feita a grava^o no arquivo em cassete, 
pois as altera 9 ttes s6 permanecem na 
memdria do computador. Para sua se- 
guran 9 a, nSb regrave mais de duas ve- 
zes na mesma parte da fita, pois em caso 
de desgaste torna-se impossivel ler os 
dados de arquivo. 



0 numero mdximo de duplicatas 
aceito 6 199. Para ampliar o arquivo de 
memdria serd preciso alterar o progra- 
ma. O numero da duplicata dever£ con- 
ter tres caracteres no minimo, para que 
nSo haja deslocamento de posi^es no 
video. 0 mesmo deverd ser feito para o 
cddigo do banco. Se voce teclar BREAK 
e possuir dados de arquivo na memdria, 
nSo use RUN, pois isto fard com que to- 
dos os dados da memdria sejam perdi- 
dos. Neste caso, use GOTO 80. 



Paulo de Carvalho trabalha no Departamento 
de ImplantagOes do Banes ta do, em Curitiba, e 
desenvolve programas para CP-300 e TK-85. 



Cobranga de duplicatas 



\ 'PROGRAMA - COBRANCA - AIJTOR - PAULO DP CARVALHO 
2 'FOUR 233.77.70 - CURITIBA - PR. 

5 CL8 

10 CLEAR SHOO 

20 INPUT "ENTRE C/DATA NA FORMA < ANO ME8 DIA > ",DA 
30 IF DA< 840B0B GOTO 20 
40 Kl^STR 1 NG9> ( 64 , 45 ) 

60 DIM 0(200) sDIM N(200):DIM SK200):D)M 0(200>:DTM St(200):DlMV 



M ( 200) 

00 CLS 

100 PR I NTT AH (20) "COBRANCA" 

120 PR INTTAB (15>"ENTR ADA DE DUPLICATAS...- 1 " 
140 PR 1NTTAH ( 15)"LISTAGFM/GFRAI. DUPLIC...- 2 " 

160 PR INT I AB ( 15)"LISTAGLM P/DATA - 3 " 

ISO PR IN T TAB ( i5)"LJ.STAtlEM P/SACADO - 4 " 

200 PR I NT TAB ( 15)"L1STAGEH P/SACADO F DATA- 3 " 
220 PR I NT TATI ( 15)"LISTAGFM DUP LIQUIDADAS.- 6 " 
230 PR I NT TAB ( 15)"L ISTAGEM DIJP VENC1DAS. . . - 7 " 
240 PR I NT TAR ( 15>"BA1XAR /DELE TAR DUPLIC...- 0 " 

260 PR INTTAB < 15)"ALTERAR DADOS - 9 " 

270 PR INTT AB ( IS) "CONTI NIJAR ARQUIVO - 10 " 

280 -PRINT I AB( 15>"GRAVAR ARQUIVO - 11 " 

300 PR INTTAB ( 15) "LER ARQUIVO - 12 " 



320 PR IN TT AB ( 1 5) "DIGITE A OPCAO " p s INPUT t\7. 

340 IF A*< i OR A% > 12 THEN PR INT s PR INTT AH < 1 5) "OPCAO INVALIDA's 

FOR K=1 TO 500s NEXT KsGOTO 80 

360 IF AZ=i GOTO 520 

370 IF AX=2 GOTO 930 

300 IF AZ*3 OOTO 1400 

390 IF AZ=4 GOTO 2080 

400 IF A%=»5 GOTO 2600 

420 IF AX=6 GOTO 3260 

440 IF A7.=7 GOTO 3640 

460 IF A%=8 GOTO 4120 

400 IF A%=9 GOTO 4600 

500 IF AX=10 GOTO 5280 

510 IF A%= 1 1 GOTO 5380 

515 IF A7-=12 GOTO 5560 

520 Y=0 

560 Y*=Y+1 

570 CLS 

580 PRINTTAIH lOHTNTRADA DE DUPLICATAS -No ",Y," P/F.NCFKRAH DIG! 
TE ( 9 > " 

590 G0H1IB 3800 

620 PRINTS 4*64+16," ", 

640 INPUT D(Y> 

660 IF D ( Y ) =9 GOTO 00 
680 PRINTS 6*64+16," ", 

700 rNPWT N(Y> 

720 IF N( Y) >9999 GOTO 680 
740 PRINTS 8*64 H6 f " ", 

760 TNPLIT SKY) 

770 IF SI ( Y> < > 1 GOTO 740 
780 PRINTS 10*64+16," ", 

BOO INPUT B< Y) 

GIO IF R ( Y ) >999 GOTO 780 
4.2*44x1* r -/«. '■> 

040 INPUT SKY) 

860 IF LFN <Sf < Y) > >22 GOTO 820 
880 PRINTS 14*64+16, 

900 TNPUI VH(Y) 

920 GOTO 560 
930 TM=0 
940 Y=0 
950 CLSs K =0 

960 PR INTTAfl ( 15 )"l. ISTAGEM GFRAl DE TITULOR " 

970 GOSUO 5760 
1060 Y=Y+1 

1000 IF D(Y>=9 GOTO 1240 

1083 TF SI ( Y ) > 1 GOTO 1060 

1090 K=K+i 

1095 GOSUB 5940 

1120 IF K=H GOTO 1340 

1230 GOTO 1060 



1240 PRINT K%, 

1260 PRINT TAB( 15), SPRINTUSING" TOTAL CRS MM , MMII , II M II . MM ",TM 
1270 PRINT K!B, 

1280 PRINT"** Fii» ** Tecle < Enter > " 

1300 R*=INKFY* 

1320 IF R%<> CMR% ( 13 ) GOTO 1300 ELSE 80 
1340 PRINT K* ; 

1360 PRINTTAIH 15) , : PR IN TUS ING" SUB-TOTAL CR% MM , MMM , MMM . MM " ; TM 
1300 PRINT Kl; 

1400 PR INT"P/Conlr I nuar tecle < Enter > " 

1420 R*=INKEY% 

1440 IF R*<> CORK 13) GOTO 1420 ELSE 950 
1480 CLS 

1500 PR INTTAB (15) "l.ISTAGEM P/ DATA " 

1520 INPUT "DATA INICIAl ", DI 
1540 INPUT "DATA FINAL ", DF 
1560 Y=0 
1500 TM=0 
i 600 CLS 

1620 PR INTTAB ( 15 )"L ISTAGEM P/DATA DE ", DI ;" A ", DF 

1640 K=0 

1650 GOSUB 5760 

1700 Y»Y+1 

1740 LF 0<Y/=9 GOTO 1980 

1760 IF D(Y>( DI OR D(Y> > DF GOTO 1700 

1770 TF SKY) > 1 GOTO 1700 

1000 K=K+1 

1820 GOSUB 5940 

1830 IF K =8 GOTO i860 

1840 GOTO 1700 

I860 PRINT K4, 

1880 PR INTTAB ( 15) , :PR INTUS1NG"SUB-T0TAL CRS MM , MMM , MMM . MM ", I’M 
1900 PR (NT K»; 

1920 PRINT"P/Cont imiar tecle ( Enter > " 

1940 R'i=INKEY* 

1960 IF Rt (> CHRt( 13) GOTO 1940 ELSE 1600 
1980 PRINT K«S, 

2000 PRINrrAB(15),8PR) NTUSINR" TOTAL CRi MM , MMM , MMM . MM ", TM 
2010 PRINT Kt- 

2020 PRINT "** Fin. * * Tecle < Enter > " 

2040 RKTNKEY* 

2060 TT R1> (> CHR%< 13) GOTO 2040 ELSE 80 
2030 CLS 

2100 PR INTTAB (20)" I ISTAGFM P/SACADO " 

2120 PR INTTAB ( 15 ) "SACADO : INPUT St* 

2140 Y =0 
2160 TH=0 
2180 CLS 
2200 K=0 

2220 PR INTTAB! 15)" L ISTAGEM P/ SACADO " 

224.1 GOSUB 5760 
2250 Y=Y+ 1 

2260 IF D(Y>=9 GOTO 2510 
2280 IF SI ( Y ) ) 1 GOTO 2250 
2320 TF S* ( Y ) «S l % GOTO 2360 
2340 GOTO 2250 
2360 GOSUB 5940 
2370 K=K + t 

2375 IF K=8 GOTO 2400 
2 380 GOTO 2250 
2400 PRINT l(T.j 

2420 PRINT TAB (20 ) ; s PR I NT US TNG" SUB-TOTAL (.;<% MM , MMM , MMM . MM ", TM 
2441) PRINT K% ; 

2461) PRINT"P/Cont inuur tecle < Enter > ” 

2480 R%=INKFY9> 

2500 TF R*(> CHR%(13) GOTO 2430 ELSE 2180 
2310 PRINT Kt, 

2520 PRINTTAIH 20) ; :PR Hi rU5INU"T0TAL CR* MM MMM, MMM. MM ", TM 
2530 PRINT K%, 

2540 PRINT"** Fir ** Tecle ( Enter i " 

2560 R‘T=INKF > \, 

2500 TF RK > CWRKI3> GOTO 2560 ELSE 80 
2600 CI.S 
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CONFIE EM QUEM E RIGIDO E CONSTANTE. 



Os cabos coaxiais para radiofrequencia RADIOFLEX 
s3o produzidos de acordo com a norma militar MIL. 
C.17 e outras normas intemacionais, 

Por isso suss caracteristicas el^tricas e mecSnicas sSo 
rig id as e constan tes. 

Produzidos com o met b or cob re eletrolitico e a mais 
soflsticada tecnologia men dial em cabos tranqados, 
seu controle de qualidade 6 feito na prdpria linha de 
montagem. 

Sua instalaqSo 6 mais fScil, por sua alta flexibiirdade 
que permite atingir pequenos raios de 
curvature - e por sua completa linha 
de acessdrios. 

Os cabos coaxiais RADiOFLEX tern 
opc§o de impedilncia de 50, 75, 93 e 
95 ohms em vPrias bitolas. 

S3o fabricados com componentes 
que facilitam a instala^o e garantem 



urn contato elfitrico perfeito, alto desempenho ei^trico 
e baixa rclaceo de on da estadonciria, 

Uma capa de PVC de alta resistfincia assegura sua 
proteijao contra intemp^ries. 

Seu condutor el^trico interno 6 vedado-por uma 
blindagem de fios trangados dentro dos mais rigidos 
padrfies de qualidade e tecnologia proporcionando 
excelente blindagem contra RF. 

E, o mais importante: os cabos coaxiais RADiOFLEX 
s3o fabricados peia KMP - uma empresa que utiliza a 
melhor materia -prim a, pessoal 
brasileiro altamente especializado e 
tern como ponto principal a qualidade 
dos produtos que fabrica e um fndice 
de nacionalizagSo de quase 100%. 
Aplique na engenharia da KMP e, veja 
as vantagens de confiar em quern 6 
rfgido e eonstante. 



RADIOFLEX 



km P 



Da bos Espec iais e Sistemos Lida. 
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i'Arlll PRINfTAB* I.ISIAGFil I /SACADO I DATA " 

?640 INP1JT"SACADO ";St* 

','660 INPUT'DATa INICIAL " ; DI 

2680 INPUT'DATA F I N AI "-DF 

.'*800 Y=0 

2020 TH=0 

2030 CLS 

2040 K=(l 

2860 PRTNTTABI 10>"LISTAGEM P/SACAOO E DATA DE DIj" A OF 
2870 GOSUB S760 
2000 Y=Y+ 1 

2V00 TF IHY>=9 GOTO 31 AO 

2920 IF BUY)) 1 GOTO 2000 

2940 IF I) < Y > < DI OR D<Y>> OF GOTO 2080 

2960 TF S* < Y ) =81*1 GOTO 3000 

2980 GOTO 2800 

3000 GOSUB 0940 

3020 K=K-» 1 

3025 IF K=B GOTO 3040 
3030 GOTO 2880 
3040 PRINT K* ; 

3060 PRINTTABtiS), sPRINTUSING" SUB-TOTAL CR* HM , HUM , HMH . HM " : TN 
3000 PRINT K4p 

3100 PR)NT"P/Cont Inuar tecle < Enter > ’ 

3120 R*=JNKEY* 

3140 IF Rt <> CHR*( 13 ) GOTO 3120 ELSE 2030 
3160 PRINT K* ; 

3100 PRINTTAB< 15>- sPRINTUSING" TOTAL GERAL CR* MM , HIM* , HUM . HM ";T 
M 

3190 PRINT K* ; 

3200 PRINT "#* Firo k# Tecle < Enter > " 

3220 R*= INKEY* 

3240 IF R%<> CHR* < 13) GOTO 3220 ELSE 80 
3260 Y«0:Ttl=0 
3200 K=0 :CLS 

3300 PR TNTTAB < 15)" LISTAGLM DE TITULOS LIQUIDADOS " 

3320 GOSUB 5760 
3340 Y=Y+ 1 

3370 IF D(Y)=9 GOTO 3550 
3380 IF SI < Y )=2 GOTO 3420 
3400 GOTO 3340 
3420 GOSUB 5940 
3440 K=K + 1 

3450 IF K=8 GOTO 3280 
3460 GOTO 3340 
3470 PRINT K*; 

3400 PR INTTAB < 15) ; sPRINTUSING" SUB-TOTAL CR* till , MMM , HUM .HR " - Til 
3490 PRINT K%- 

3500 PRINT"P/Cont inuar Tecle < Enter > " 

3520 R*^INKEY* 

3540 IF RIO CHR*(13> GOTO 3520 ELSE 3280 
3550 PRINT K* r 

3560 PRINTTAB <20 > ; sPRINTUSING" TOTAL GERAL CR* MM, HMM , MMH.MM " t T 
H 

3570 PRINT K*. 

3500 PRINT"## FIm »* Tecle < Enter > " 

3600 R*~ INKEY* 

3620 IF RIO CHR* < 13) GOTO 3600 ELSE 80 
3640 Y=0s TM-0 
3660 K-0 
3680 CLS 

3700 PR INTTAB < 15)"LISTAGEM DE TITULOS VENCIDOS " 

3720 GOSUB 5760 
3740 Y=Y+1 

3760 IF D(Y>=9 GOTO 4000 
37/0 IF SI<Y>=2 GOTO 3740 
3780 IF D< Y ) < DA GOTO 3820 
3800 GOTO 3740 
3820 GOSUB 5940 
3840 K=K+1 

3850 IF K--8 GOTO 3880 
3860 GOTO 3740 
3880 PRINT l<* ; 

3900 PRINTTAB < 15) ; * PR INTUSING" SUB-TOTAL CR* MH r HMM , •*««•« . HU "-TM 
3920 PRINT K*; 

3940 PR INT"P/Cont inuar Tecle < Enter >" 

3960 R*= INKEY* 

3900 I F R*< > CHR* < 13) GOTO 3960 ELSE 3660 
4000 PRINT K*- 

4020 PR INTTAB < 15) ; = PR INTUS I NG"TOTAL GERAL CR* MM , HUM , MMH . MM " • T M 
4040 PRINT Kt- 

4060 PRINT"## Firo ## Tecle < Enter > " 

4000 R*= TNKFY* 

4100 IF R*< > CHR*<13> GOTO 4000 ELSE 00 
4120 Y=0:TH=0 
4130 CI S 

4140 PRINTTAB < 15)"LIQUIDACA0/DELECA0 DE DIJPLICATAS " 

4160 PR INT sPR I NTTAB < 1 5 ) "NR - DA DIIPLICATA INPUT N1 
4100 CI S 

4200 PRINT IAB<i5)"l IQU1DACA0/DEI ECAO DUPE ICATAS" 

4240 GOSUB 5760 
4260 Y=Y + t 

4200 IF D< Y ) =9 GOTO 4640 
4320 TF N< Y)=N1 GOTO 4360 
4340 GOTO 4260 
4360 GOSUB 5940 
4300 PR TNT l(* i 



44U») PKJNI “L ' est a a ilup u 1 iq/delet »r < s/n > ?" 

4420 R*=TNKFY* 

4440 TF R*=" " GOTO 4420 
4460 IF R*="S" GOTO 4520 
4480 IF R*= s "N" GOTO 4180 
4500 GOTO 4420 

452(1 PR INTTAB ( 10)"DIGITE s 2- P /LI GUI OAR : 3- P/OELFTAR ";5lNP 

UT OP 

4540 IF 0P< 2 OR OP > 3 GOTO 4520 

4560 IF 0P«2 THEN LET SI < Y>=?:PRINT sRR INTTAB < 15)"0K DIIPLICATA I I 
GUI DAD A < AGIJARDF > "sFOR K = 1 TO 300:NEXT KsGOTO 80 
4580 IF OP =3 THEN LET D<Y>=0 : N ( Y > =0 :RI < Y > =0 :R < Y ) =0s S* ( Y ) ="" sUH < 
Y )=0 

4620 PR INT sPR INT TAB < 15)"0K DUPLICATA DELETADA < AGUAROE > "SFOR 
K=i TO 300 SNEXTK: GOTO 80 
4640 PRINT K* 

4660 PR I NTT AB < 15) "DUPLICATA INEXISTENTE ":FOR K = 1 TO 300:NEXT K 
i GOT 0 80 
4680 Y=0 

4700 CLSsPR INTTAB (15) "ALTERACOES" 

4720 PR INT * PR INTTAB < 15) "NR . DA DUPLICATA "ySlNPlJT N1 
4740 CLSsPR INTTAB < 15)"ALTERAC0ES " 

4760 GOSUB 5760 
4780 Y=Y+1 

4800 IF D( Y > =9 GOTO 4640 
4820 IF N< Y )=N1 GOTO 4860 
484(1 GOTO 4700 
4860 GOSUB 5940 
4070 PRINT K* 

4800 PRINT"E' est a a duplieata a alterar < s/n ) ?" ; 

4900 R*=INKEY* 

4920 IF R*=" " GOTO 490tf 
4940 IF R*="S" GOTO 4990 
4960 IF R*="N" GOTO 4740 
4980 GOTO 4900 

4990 CLSsPR INTTAIH 1 5 ) "ALTERACOES" 

5000 GOSUB 5000 
5020 PR INT 0 4#64+ 1.6 , " 

5040 INPUT D< Y) 

5060 PRINTS 6#64+16 r " 

50B0 INPUT N< Y ) 

5090 IF N < Y ) > 9999 GOTO 5060 
5100 PRINTS 0K64-H6," 

5120 INPUT SKY) 

5130 IF 81 < Y ) < > 1 GOTO 5100 
5140 PRINTS 10#64+ 1 6 , " 

5160 INPUT B < Y ) 

5170 IF B < Y > >999 GOTO 5140 
5180 PRINTS 12#64+16," 

5200 INPUT S*< Y> 

5210 IF LEN <S%< Y) ) >22 GOTO 5180 
5220 PRINTS 14#64+16," "• 

5240 INPUT VH<Y> 

5260 GOTO 80 
5280 CLS 
5300 Y=0 
5320 Y=Y+1 

5340 IF D<Y>=9 GOTO 570 
5360 GOTO 5320 
5380 CLS 

5400 PR INT"GR AVACAO s " 

5420 PR INT"PREPARF 0 K-7 E TECLE < ENTER > " 

5430 R*=1NKEY* 

5440 IE R*<> CHR*( 13) GOTO 5430 
5460 Y=0 
5480 Y*Y+1 

5490 IF D< Y >=»0 GOTO 5480 

5500 PRINTH-i, D< Y ) r N< Y ) r SI < Y > , B < Y ) , S*< Y ) , VH< Y > 

5520 IF D ( Y )=9 GOTO 80 
5540 GOTO 5480 
5560 CLS 

5580 PRINT"LEITIIRA: " 

5600 PRINT"PRFPARE 0 K-7 E TECLE < ENTER > " 

5620 R*=INKEY* 

5640 IF R*< > CHR*< 13) GOTO 5620 
5660 Y=0 
5680 Y=Y+1 

5700 INPUTH-1 r D<Y) r N<Y) r SI(Y),B<Y> r S*< Y > , VH < Y) 

5720 IF D(Y)=9 GOTO 00 
5740 GOTO 5680 
5760 PRINT Kt; 

5780 PRINT" VFNC. DUPL SIT BCO SACADO 

AI OR " 

5790 RETURN 

5800 PRINTS 4#64 r "VENCIMFNT0 

5020 PRINTS 6#64 r "NR. DUPLICATA. .s"; 

^840 PRINTS 8#64 , "5ITUACA0 

5860 PRINTS i 0#A4 , "BANCO/COB 

5880 PRINTS 1 2#64 , "SACADO 

5900 PRINTS 1 4#64 , "UAI..OR 

5920 RETURN 

5940 PRINT; D<Y>; : PR INT"" ; N < T i ; 5 PR INI • SK T ) ; : PR INT"" • n ( Y ) ; : PR TK 
X" ";S*<Y>, 

5945 PR INTUSING" HM , HHH , HH . MM" ; VM < Y) 

5950 T»# = TM + OM< Y> 

5960 RETURN 



SINTA NOS DEDOS ESTA CONQUISTA 

DIGIPLEX 
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Para pequenas e medias empresas, a DIGITUS lanpa o DIGIPLEX. Um modulo capaz de formar uma rede local de 
multi-usu&rios, que alem de proporcionar o dinamismo de um CPD tambem simplificara o gerenciamento de sua 
emoresa 

Com vSrios terminals executando programas especificos, a implantag&o do DIGIPLEX proporcionara a sua em* 
presa um aumentoda produtividade e qualidade, que a interligagSo on linedos terminals permitira que se 
trabalhe com dados e informagSes atualizadas. 

Ligados ao DIGIPLEX poder&o estar ate 16 terminals inteligentes, fazendo a contabilidade, controle de estoque, 
vendas e produgSo, malas diretas, estatlsticas ou seja, atendendo a todas as necessidades de sua empresa. 



Revendedores: AracajO (079) 224 7776 223.1310 Baumerl (Oil) 421 .521 1 Brasilia (061) 242 6344 248.5359 273.2128 229.4534 Bsldm (091) 225 4000 Belo Horizonte (031 ) 223 6947 222 7889 334 2822 344 5506 
225 3305 225.6239 Campinas (0192) 32.6322 Curitiba (041) 232.1750 243 1731 Divindpolis (037) 221.9800 Fortaleza (085) 227.5878 224.4235 224 3923 224 4691 226 4922 Floriandpolls (0482) 23 1039 Foz do 
Iguagii (0455) 72 1418 Goiftnla (062) 223 1 165 JoSo Pessoa (083) 221 6743 Juiz de Fora (032) 213.2494 Londrina (0432) 23 71 10 Maceid (082) 223.3979 Montes Claros (038) 221 .2599 Niterdl (021) 710 2780 Novo 
Hamburgo (051) 293 1024 Ouro Preto (031) 551 3013 Poqos de Caldas (035) 721 5810 Porto Alegre (0512) 26.1988 334 0660 21 4189 25.0007 26 1900 Recife (081) 326.9318 221.4995 326.9969 RibelrSo Preto 
(016) 636 0586 Rio de Janeiro (021) 252.9420 262 2661 292 0033 267 1093 252 9191 541 2345 2687480 221 8282 288 2650 253.3395 257 4398 222 4515 263.1241 295.8194 247 7842 322 1960 316.4966 
551 8942 Salvador (071) 242 9394 241 6189 Santa Maria (055) 221 9588 SSo Paulo (Oil) 280 2322 815 0099 533.2111 231.3922 258 4411 222. 1511 853.9288 Taubatd (0122) 32.9807 Vltdria (027) 223.5147 
223 5610 









Nesta parte do artigo, a respeito do gerenciador 
de banco dc dados para o TRS 80, vamos descrever 
o funcionamento inter no do program a 




_/i /an Cam if o da C/w 



programs que dcsereveremo.s neste segundo artigo 
m ■ da scrie for projetado para gerendar baitcos de da- 
M M dos rdacioitais, a cessation ^qikiidaJmente ou atra- 
ves de liida arvore bio aria, Etc tern um conjunto de 
retinas porta veis qua? ser Jo deserttas nesia parte. Si! as podem 
ser usadas em outrtxs program^ do usuario para acessar os. da- 
dos do banco. Aiguns excnipJos de sua uliiiza^ao stray dadus 
fia terccira parte do artigo. 

lislaft rotitias portiveis cstab lotahzadas entre as linhas I 380 
e 4990. Portfm, antes de de&crcvS-las, faremos urna pequena 
mirodugao ao funcionamento geraJ do programs, 

Para sc en tender o funcionamento e necessario conhecer 
tics tabelas usadas intemametite: a de descrigao da fidia.a de 
dcscrigifo dos campos e a de descrigao dos arquivos. Estas ires 
labelas define ms completaxnentc o banco de dados em uso. As 
variaveis e vet ores usados para a const rugao deslas tabelas ts.- 
tao n a figura 1 . As duas prime has sao gravadas ein disco logo 
ap6s a criagio do banco, a icrcctm e criada a parin' das duas 
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Figunt 2 

pnmeiras, sempre que um novo banco c alter to on eriado. As 
outras variaveis import antes do programs pudem set visually a- 
das nas figuias 2 a 6. 

A label a dc descrigfo dos campus e composia ptsr seis veto- 
res; NCS. FC. TC, TP, DC c FMS. Sendo que o vetor FMS c 
const niido a partir dc TC c DC no moment o da abertura do 
banco. Cad a catnpo ocupa nma enirada na labels a par dr da 
posi^ao I dos vet ores. A posrg So Q e rcservadti para n campo 
b APACADQ? F {veja primeira parte do artigo], Alem dcstes, 
esislc o vet or CCS que e usado paot gnaidar os dados da fieba. 

A tabela dc de$crig5o dti ficha e fomiada por ties vc tores c 
duas matrices. Os vetores sito Pl s P2 c NM, Pxiste iinia entra- 
da nestes vetores para cada tela da ficha* * 0 minicro de telas 
estiS annazenado na vartavek NP. O vetor PI coni cm. para 
cad a ama n urn apontador para o primes ro carnpo da Lcia, Si- 
miJunnente, o vetor P2 guarda indices para o vs! time carnpo da 
tela, Q NM coiitem o udmero tie menSagcns. As mairizes da 
tab da s5o PM e t’M-S- PI as s3o bid imeit^itinais e para cada Ida 
guard a as postgoes e contend os das tnemuigcns. respect ivam eli- 
te. 

A labels* dc dcscrigio dos arquivos £ forma da por doi$ ve- 
lures: NC e TA. 0 primeiro guard a, psira cada arqiiivo, o 
mero de campos c o segundo o lamanho, cm caractcrcs, dc 
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VAR I A VE IS DE DEriHICAO DA IMPRESSAO 

Caracteristicas da iwpressora 
CO - Muwero de colunau 
LI - NuMero dc* linhas 
Sit - Sequencia inicial de iwpresaao 
S2$ -- Sequencia final de impressao 
Caracteristicas do Kelatorio 
Cabecaiho 

N4 Muinero de linhas de raJjecallio 

T4< ) - Tabuiaeoes da linhas de cabecaiho 
L4i( ) - Conteudo da*. linhas de cabecaJho 
Nl - Numero da lmha do contador de payinas 
Cl - Numero da ooluna do contador de oaginas 
Detalhe 

N5 - NuMero de colunas de detalhe 

T5( ) - Tabuiacoo-j das colunas de detalhe 
C5< ) Carnpo a uer iimpresso 
N3 - Numero de linhas de separacao 
M7 - NuMero de Fionas a lMDriwir por pagina 
N8 - Resto de linhas 

N9 - Nuwero de linhas a morion r por tich4 
Rodape' 

N<5 - Nuwero de linhas de rodape' 

T6C ) - Tabulacoes das linhas de rodaoe' 

L6$( ) - Conteudo das linhas de rodape' 

N8 - Humero da linha do contador de paginas 
Cc‘ - Numero da coluna do contador de paginas 



Figura 3 



TABELAS E VARIAVEIS PARA AVALIACOES DE EXPRESSOES- 

CM( ) - Nuiaero do cawpo 

CT$< ) - Constante string para a comparacao 
RL( ) - Codigo do operador relacional 
LG< > - Codigo do operador logico 
0P$ - Operador sendo avaliado 
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F0 


- (0) 




( '1) 


FI 


- (0) 




(-1 ) 


F2 


- (0) 




(-1) 


F3 


- (0) 




(-1) 


F4 


“ (0) 




(-1) 


F5 


- (0) 





(-1 ) 


\-6 


( 0 ) 




<- l ) 


f / 


- ( 0 ) 




(-1 > 



FLAGS DO PROGRAHA 

Indica que nao hoove Modificacoes na tela 
atual (usadn pela rolina LE1T. DO TECLAU0-1 ) 
Indica que hove Modif icacoes. 

Indica que ainda nao foi encontrado o fim de 
arquivo ( usada pela rotina IMPRINIR) 

Indica que o fiw de arquivo foi encontrado. 

Nao existe exoressao logica para ser avaiiada 
Existe u«a expressao logica. 

Expressao logica e' falsa 
Expressao logica e / verdadeira. 

Expressao relacional e' falsa 
Exoressao relacional e' verdadeira. 

Nao iMpriMir valores anteriores do formato de 
jwuressao (usada uela rotina DESCRICAO DA IM- 
PRESSAO). 

Iwpriwir valores anteriores. 

Existe um banco de dados aberto. 

Nao existe um banco de dados aberto. 

Nao existe um arquivo de indices e« uso. 

Existe um arquivo de indices e« uso. 
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VARIAVEIS AIJX1LIARES 

RCi • Nome do banco de dados eM uso. 

TP$( ) - Tabela de definidores de tipo 

Tl( ) - Tamanha do cawuo para tipos nUMericos 

ZR4( ) - Valores nulos para cada tipo 

DUMMY* - Auxilia a criacao dos FIELDS 

NF NuMero da ficha atual 

-l» - Cndereco do cursor na Meworia de video 

PR - Codigo do caractere 'sob' o clirsor. 

CR Codigo ASCII do cursor 

ST* - Usada na leitura dos campos do teclado 

ELD - Elo ou flag da ficha atual 



Figura 6 



cada registro do arquivo. Para entender melhor esta tabela sao 
necess^rias pequenas explica 9 oes. 

Devido a baixa capacidade dos registros dos arquivos em sis- 
temas operacionais para o TRS 80 (256 bytes), foi preciso im- 
plementar um modo de se armazenar uma ficha em mais de um 



registro. O mStodo que se mostrou mais eficiente foi o de ar- 
quivos paralelos, em que uma parte da ficha flea em um arqui- 
vo e o restante em outros, por6m na mesma posi^o relativa. 
Dessa forma, se uma ficha for muito grande (mais de 256 by- 
tes) ela sera subdividida em at6 10 arquivos, o que permite ao 
programa armazenar, teoricamente, fichas com at6 2.560 by- 
tes. 

Deve ser levado em conta, no calculo do tamanho da ficha, 
que o campo ‘APAGADO?’ ocupa dois bytes e se localiza antes 
de qualquer outro. Tomando como exemplo a ficha usada na 
primeira parte teriamos a seguinte divisao: 

lo. ARQUIVO 



INDICE NA 


NOME 


TAMANHO 


TABELA DE DEF. 


DO 


00 


DOS CANP0S 


CAMPO 


CAMPO 


0 


7 APAGADO? 7 


2 


1 


NOME 


30 


2 


PA I 


30 


3 


MAE 


30 


4 


'DATA 00 NASCl'MENTO 7 


8 


5 


'EST. CIVIL 7 


1 


6 


C0NJUGE 


30 


7 


IDENTIDAOE 


12 


8 


'0RGA0 EXPEDTDOR 7 


12 


9 


7 C. PROFIS. 7 


12 


10 


'SERIE 


12 


11 


'CERT. DE RESERVISTA' 


15 


12 


'TIT. ELEITORAL 7 


8 


13 


SESSAO 


5 


14 


ZONA 


3 


15 


CIC 


12 


TOTAL 




222 



Se o proximo campo (ENDEREQO) fosse incluido, o arqui- 
vo ficaria com 262 bytes por registro. Por isso ele so sera in- 
cluido no segundo arquivo: 



2o. ARQUIVO 



NUMERO 


NOME 


TAMANHO 


16 


EN0EREC0 


40 


17 


'CIDA0E 


20 


18 


ESTA00 


2 


19 


'DATA DE ADMISSA0 7 


8 


20 


CARGO 


20 


21 


SALARIO 


8 


TOTAL 




98 



Observe que. apesar de o tamanho do campo SALARIO ser 
de 14 caracteres, ele s6 ocupara oito bytes no arquivo. Qualquer 
campo de dupla precisao ocupa apenas oito bytes, os de pre- 
cisao simples quatro e os inteiros dois bytes. 

AS ROTINAS DE ACESSO 

fi importante lembrar que os dados dos bancos podem ser 
acessados atrav6s de uma arvore bindria. Para aqueles que e&* 
tao se iniciando, vamos explicar o que 6 uma drvore bindria. 

De forma generica, uma arvore e uma estrutura de dados 
que possui nos e liga 9 oes entre esses nos, que estSo dispostos 
em niveis. Uma liga 9 ao sempre parte de um nivel menor para 
um maior. Um exemplo de arvore pode ser visto na figura 7. 
No nivel zero pode ser colocado apenas um n6 e que 6 chama- 
do n6 raiz da Arvore. 

Uma Arvore binaria e uma forma especial de Arvore, na qual 
podem ser feitas no maximo duas liga 9 Qes a partir de um no w 
qualquer. Na figura 8 est4 um exemplo. ^ 
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Todos os nos dqs quais nao parte nenhuma ligagao sao cha- 
mados nos folha. Aqueles que nao sao raiz, mas dos quais par- 
tem ligates para outros nos serao chamados de sub-raiz. A ar- 
vore que se origina de uma ligagao a esquerda de urn no ser6 
chamada de sub-arvore a esquerda, e as arvores que se originam 
a direita serSo chamadas de sub-arvores a direita. 

Cada no deve conter armazenada uma chave de acesso (ob- 
serve que isso nao esta representado na figura 7). Todas as cha- 
ves armazenadas em uma sub-arvore a esquerda devem ter um 
valor menor do que a chave do no que a originou. Da mesma 
forma, todas as chaves contidas em uma sub-arvore a direita 
devem possuir valores maiores do que a chave do no que a ori- 
ginou. 

Vamos a um exemplo para explicar melhor o sentido desta 
definigao. Suponhamos que os nomes abaixo devam ser intro- 
duzidos em uma arvore binaria: JOAO, EDSON, LUIZ, FA- 
TIMA, ANTONIO, PEDRO, EVERTON. 

A criagao de uma arvore binaria com tais dados seguira esta 
seqiiencia: 




O O 



o o 



o o 



Figura 7 




Figura 8 



mi/ 



um 



WHWttO rnljHA , tUHv 

‘JNftrw 

Para entender as rotinas de acesso a arvore sao necessarias 
quatro definigoes: 

1 - PRIMEIRO ELEMENTO da arvore ou sub-arvore. 

2 — ULTIMO ELEMENTO da arvore ou sub-arvore. 

3 - ELEMENTO SEGUINTE a um elemento. 

4 - ELEMENTO ANTERIOR a um elemento. 

Vamos a definigbes mais especfficas: 

• PRIMEIRO ELEMENTO: dado o no raiz da arvore ou sub- 
arvore, se ele nao tiver uma sub-arvore a esquerda, entao e o 
primeiro. Caso contrdrio, o primeiro elemento sera o primeiro 
elemento da sub-arvore a esquerda. 

• ULTIMO ELEMENTO: dado o n6 raiz da drvore ou sub-ar- 
vore, se ele nao tiver uma sub-arvore a direita, entao ele e o 
ultimo. Em caso contrdrio o ultimo elemento sera o ultimo 
elemento da sub-arvore a direita. 

• ELEMENTO SEGUINTE: dado um elemento da arvore, se 
ele tern sub-drvore a direita, entfo o elemento seguinte sera o 
primeiro elemento da sub-arvore a direita. Ao contr£rio, o ele- 
mento seguinte ser£ o primeiro no pai cuja sub-arvore a es- 
querda seja a mesma do elemento dado. 

• ELEMENTO ANTERIOR: dado um elemento da drvore, se 




ele tern sub-arvore a esquerda, entao o elemento anterior sera o 
ultimo elemento da sub-arvore a esquerda. Em caso contrario 
o elemento anterior sera o primeiro no pai cuja sub-arvore a 
direita seja a mesma do elemento dado. 

E bom tamb£m esclarecer que cada no (elemento) da arvo- 
re possui cinco campos: 

• inteiro com o elo com a sub-arvore a esquerda (E 1 S); 

• inteiro com o elo com a sub-arvore a direita (E2S); 

• inteiro com o elo com o no pai (E3S); 

• inteiro com o elo para a ficha (E4S); 

• campo que contem a chave de acesso da arvore (CHS). 

Estes campos estao declarados em um comando FIELD na 
linha 4830, na rotina de abertura do arquivo indice. A fungao 
de cada um pode ser melhor visualizada na figura 9. A figura 
10 traz os valores que estes campos assumiriam no caso do 
exemplo dado anteriormente. 

Algo mais deve ser dito sobre o registro numero 1 do arqui- 
vo de indices (figura 10). Ele funciona como um descritor da 
arvore. O campo E1S deste registro contem um apontador 
para o no raiz da arvore que na figura e o registro numero 2. 
O campo E4$, por sua vez, possui o numero do campo na ta- 
bela de definigao dos campos, que e usado como chave da ar- 
vore binaria. Neste caso o numero do campo e 1 , que e o fndi- 
ce do campo ‘NOME’ do nosso exemplo. 

Para criar e acessar a arvore usando estes campos ha seis ro- 
tinas: 

• PRIMEIRA (linhas 1420-1550). 

• ULTIMA (linhas 1560-1690). 

• PROXIM A (linhas 1 700- 1820). 

• ANTERIOR (linhas 1830-1950). 

• INCLUI (linhas 1960-2190). 

• PESQUISA (linhas 2200-2400). 

A PRIMEIRA busca a primeira ficha no banco de dados. 
Caso o banco nSo seja indexado, a ficha numero 1 sera lida e a 
rotina retorna. Em caso contrario havera busca dentro da ar- 
vore binaria para encontrar a ficha que tenha a chave de me- 
nor valor. Ela se dara da forma como foi descrita anterior- 
mente na definigao de PRIMEIRO ELEMENTO, ou seja: 
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VALORES DOS ELOS 




Figura 9 



linha 1510: salva o conteudo da variavel II e faz II apontar 
para a raiz da arvore. 

1520: le registro numero II no arquivo de indices. 

1530: se houver uma sub-arvore a esquerda, faz a mes- 
ma busca. 

1 540: se nao, verifica se o nodo esta inativo e caso afjr- 
mativo busca o PROXIMO ELEMENTO. 



# DO 

REGISTRO El $ E2$E3$E4$ CH$ 




Figura 10 

variavel que aponta para o ultimo registro +1 do banco) e caso 
contrario, sera a ficha cuja chave tiver maior valor. A pesquisa 
na arvore difere da rotina anterior em dois pontos: 
linha 1670: verifica se ha sub-arvore a direita. 

1680: se o nodo estiver inativo busca o ELEMENTO 
ANTERIOR. 

A rotina PROXIM A le a ficha seguinte da atual. Se o banco de 
dados nao estiver indexado, bastara incrementar a variavel NF 
e saltar para a rotina de leitura do banco. Em caso contrario o 
numero do nodo atual, o indice da arvore & direita e o indice 



1550: le a ficha no disco e retorna sem erro. do nodo pai devem ser fornecidos a sub-rotina nas variaveis 

O conteudo da variavel II e salvo para que seja recuperado E2 e E3, respectivamente. 
em caso de erro na procura. A busca na arvore e feita conforme a definigao de ELE- 

A ULTIMA funciona de modo similar, ou seja, se o banco MENTO SEGUINTE dada acima: y> 

nao estiver indexado, a ficha retomada sera FIM- 1 (FIM e uma linha 1780: salva a variavel II pelo motivo ja exposto. m 
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• Voce pode fazer o seu pedido por carta. 

• Junte a este um cheque cruzado, 
nominal a ATI Editora Ltd a., no valor 
correspondente ao seu pedido. 

• E nao esquepa de enviar o seu enderepo 



A v. Presidente Wilson, 165/ 
grupo 1210, Centro, Rio de 
Janeiro — RJ — CEP 20030 
Tel.: (021 ) 262-5259 



R. Oliveira Dias, 1 53, Jardim 
Paulista, Sao Paulo, SP 
CEP 01433 -Tels.: (Oil) 
853-7758, 881-5668, 853-3800 




CHAME MS: ASSISTENCIA VITAL EM MICROS 

IBM PC, RADIO SHACK, APPLE COMPUTER, 
EPSON E TODAS AS MARCAS NACIONAIS. 

A MS trabalha desde 1971 em assistencia especializada em 
microcomputagao que se estende desde check-ups preventi- 
ves ate a substituigSo de pegas, de unidades perifericas ou do 
prbprio micro durante o tempo em que ele estiver em preparo. 

Tenha ao seu lado a melhor assistencia tecnica em micro- 
computadores do pais. 

FA 9 A COMO AS GRANDES EMPRESAS: 

Varig, Petrobras, Pao de Agucar, Agos Villares, Philco, etc. 

Contrato de manutengfio com a MS 6 garantia de bom funcio- 
namento de seu equipamento. 

Solicite nosso representante ou faga-nos uma visita. 






Assistencia T 6 cnica a Microcomputadores. 
Rua Dr. Astolfo Araujo, 521 tone: 549-9022 
Cep.: 04012 - Pq. Ibirapuera - S3o Paulo. 
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linha 1790: verifica a existencia de uma sub-drvore k direita e, 
caso verdadeiro, inicia a busca da primeiro ele- 
mento desta sub-drvore. 

1800: inicia a busca do primeiro nodo pai cuja sub-drvo- 
re a esquerda contenha o elemento dado. Se 
II = 1 , entao a busca termina com erro. 

1810: le o nodo pai. 

1820: verifica se ele satisfaz as conduces da definigao. 
Caso afirmativo retorna sem erro, caso falso, bus- 
ca o pai anterior. 

A sub-rotina ANTERIOR funciona de forma semelhante. 

Alem das quatro rotinas explicadas, existe outra, dc pesqui- 
sa em arvore bindria para encontrar a ficha a partir de um 
campo-chave qualquer. Esta rotina, chamada PESQUISA (ii- 
nhas 2200 a 2370) recebe como parametro a variavel STS que 
dcve conter a string a ser pesquisada. Ao retornar, caso a pes- 
quisa seja bem sucedida, uma nova ficha foi lida e colocada no 
vetor CCS e a variavel ER retorna com valor 0. Caso contrario, 
a variavel ER retorna com valor 1 indicando erro. 

A rotina INCLUI (linhas 1960 a 2190) recebe como para- 
metros o vetor CCS e a varidvel NF. O vetor contem os dados 
da ficha que serffo incluidos no banco e NF o numero do regis- 
tro no banco onde a ficha sera armazenada. 

Ela grava a ficha no banco de dados (linha 2030) atraves de 
uma chamada k sub-rotina da linha 2590. Em seguida, caso es- 
teja sendo usado um arquivo indice, um no serd procurado pa- 
ra que nele possa ser dependurado o novo registro. 

ROTINAS DE ANALISE 

Entre as linhas 2660 e 3980 estao as rotinas que fazem ana- 
lise lexica, sintatica e avaliagao de expressoes logicas e rela- 
cionais. A finalidade deste grupo de rotinas e pre-processar 
a expressao logica de modo a permitir uma avaliagao rapida da 
expressao por parte da rotina AVALIA (linhas 2660 a 2990). 
Para isso sao criados quatro vetores: CM, CTS, RLe LG. Para 
cada expressao relacional, uma entrada na tabela tambem e 
criada. A sintaxe de uma expressao relacional, como vista na 
primeira parte, e a seguinte: 

<CAMPO> [”(” < # TELA> “)” ] < OP. RELACIONAL > 

<CONSTANTE> 

O vetor CM contem o numero - dentro da tabela de defi- 
nigao dos campos — do campo da expressao. O vetor CTS 
possui a constante e RL, o codigo do operador relacional (de 
1 a 6). O vetor LG guarda o codigo ASCII do operador logi- 
co(”” ou ”+”) usado como ligagao entre esta expressao rela- 
cional e a seguinte. Se nao houver uma expressao relacional 
seguinte, este vetor contera o codigo ACSII da letra F. 

A rotina EXPRESSAO (linhas 2970-3260) faz a analise sin- 
tatica de uma expressao logica completa. Ela chama a rotina 
CAMPO que faz a analise do trecho <CAMPO> [“(”<#TELA> 
“)”] > e devolve na variavel J o numero do campo dentro da 
tabela de definigS'o dos campos. 

TOKEN c CARACTERE fazem a analise lexica. A cada vez 
que e chamada, TOKEN devolve o proximo simbolo na cadeia 
de entrada. A rotina CARACTERE por sua vez, devolve o pr6- 
ximo carater na cadeia de entrada. 

OUTRAS ROTINAS IMPORT ANTES 

Alem destas, existe um outro grupo de rotinas que merece 
ser citado. Est£ localizado entre as linhas 3990 e 4990. A pri- 
meira delas le a descrigao de um banco de dados ja existente 
no disco. E bom ficar claro que por descrigao de um banco 
entende-se as tres tabelas vistas no inicio deste artigo. 

Em seguida vem uma rotina que faz o oposto, ou seja, es- 
creve esta mesma descrigao no disco. Observe, entretanto, que 
a descrigao que 6 lida e escrita no disco nao e completa, pois 



a tabela de descrigao dos arquivos nao e gravada. Para as duas 
rotinas 6 neccssario, antes de chamd-las, abrir os arquivos onde 
serSo gravadas ou de onde serSo lidas as descrigOes. 

Logo apos a chamada a uma leitura de descrigSes deve-se 
buscar a rotina CRIA A DESCRIGAO DE ARQUIVOS, para 
que a tabela de descrigoes dos arquivos, que nao e gravada 
em disco, possa ser criada. 

Apos ler a descrigao da ficha e criar a descrigao dos arqui- 
vos, e necessario abrir os arquivos de dados para que o banco 
possa ser acessado. Isso e feito pela rotina ABRE OS ARQUI- 
VOS DE DADOS (linhas 4500-4690). Esta, alem de abrir os 
arquivos, devolve as varidveis FIM e LV. FIM cont&m o nume- 
ro do proximo registro disponivel no fim do arquivo. LV e a 
cabega (indice do primeiro item) de uma pilha de fichas mar- 
cadas como apagadas (veja a primeira parte do artigo). 

Para usar um arquivo de indices chame a rotina indicada. 
Antes abra os arquivos de dados e coloque na variavel IDS o 
nome do arquivo a ser aberto. A rotina FECHA fecha os ar- 
quivos de indices e de dados. A rotina FECHA O ARQUIVO 
DE INDICES, apenas o primeiro. 

MISCELANEA DE ROTINAS 

Alem dessas rotinas portaveis ha outras que podem ser uteis 
a alguem. A primeira delas e a que desenha as letras MSGBD 
(Mini Sistema de Gerencia de Banco de Dados) na abertura 
do programa (linhas 60-80). Nela, cada letra e composta por 
retangulos de largura constante e altura e posigao na tela va- 
riaveis. A rotina usa os dados numericos que estao nas linhas 90 
a 120, cada linha para uma letra. Cada retangulo e descrito 
por tres numeros: o primeiro e a coordenada X onde a lateral 
esquerda do retangulo esta posicionada; o segundo e a posig&o 
no topo do retangulo e o terceiro a posigao da base. 

A segunda rotina e a de som. Ela e escrita em Assembler 
e chamada pelo banco de dados na pequena rotina que vai da 

linha 10630 a 10730. Os bytes que a formam est£o na linha 
250 e armazenados na variavel SOMS. 

Ha duas rotinas de leitura do teclado. A primeira denomi- 
nada LEITURA DE TECLADO- 1, e usada para ler os dados 
da ficha que estiver sendo criada ou modificada. Os caracteres de 
controle que ela aceita estao armazenados na variavel CIS 
(vcr linha 210). Assim, se o usu£rio descja retirar alguns dos 
controles da rotina bastara substituir o carater corrcspon- 
dente na varidvel CIS por outro que n2o exista no teclado, 
como por excmplo CHRS(0). A segunda rotina, denominada 
LEITURA DE TECLADO- 2, funciona de modo semelhante 
a um comando LINE INPUT, com duas diferengas: o numero 
de caracteres a ser lido pode ser delimitado pelo valor da va- 
riavel TM, e os unicos caracteres de controle permitidos sao 
o (ENTER), (setinha k esquerda) e (SHIFT) + (setinha a es- 
querda). 

A rotina DISPLAY MOLDURA imprime nas tres ultimas 
linhas do video uma grade e os nomes do banco de dados e do 
arquivo de indices em uso. A DISPLAY FORMATO formata 
o video, colocando os nomes dos campos e as mensagens nos 
locais pre-determinados. A DISPLAY DADOS imprime 
os dados referentes a cada campo no video, em suas posigSes 
pre-determinadas. 

As outras duas rotinas do programa sSo aplicativas e nao 
serao descritas agora. Na proxima parte, o uso das rotinas 
aqui descritas sera visto na pratica. — 

m 



Ivan Cam Ho da Cruz domina varias lingua gens de programapao, entre 
elas BASIC , Pascal , FORTRAN , COBOL , PL /I e Assembler. Tern expe - 
ridncia em computadores grandes, minis e micros. Atua/mente participa 
da implantagao do CPD da Controles Grdficos Daru, desenvolvendo pro- 
gramas em Hnguagem C. 
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A segunda 
memoria do seu 
computador: 
gravador National 

RQ-2222. 



O gravador 
National RQ-2222 
e o preferido 
pelos usuarios de micro- 
computadores. Ele grava e 
carrega programas com 
a mais alta fidelidade e com 
a maior economia. 



Porque tern um sistema de 
cabegote prbprio para 
o uso em micros. O gravador 
National RQ-2222 tern um 
contador de fita que facilita 
a localizagao do programa a 
ser utilizado. E tern tambem 
um comando unico para 
gravaqio tipo “Um Toque”, 
muito mais pratico. Um 
gravador que vive na memo- 
ria do computador merece 
tamb6m viver na sua. 

Grave este nome: National 
RQ-2222. 



National 



r~t\ 

National 



Produzido na Zona Franca de Manaus. Conhega o Amazonas. 




<£A rodada /MS 



Finalmente, a oportunidade que os possuidores 
da linha Sinclair esperavam, com este novo... 

Arquivo de 
comunicados 

— Luiz Carlos Nardy 

O programa aqui apresentado, 9^0 a ser arquivada em cada campo. No- do, com o indicativo a ser procurado. 

para Registro de Comunica- tar que CP, comprimento do prefixo, Na parte superior do video serdo mos- 

dos de Radioamador, e dedi- ou melhor, do indicativo, por forga da trados os dados do QSO, se encontrado, 

cado especialmente aos cole- 16gica utilizada na pesquisa do arquivo, e na parte inferior aparecerd novamente 

gas que estao se iniciando na micro- assume o valor 7, ao inves de 6. Tais va- o menu. Caso o indicativo solicitado nSo 

computagdo, sendo, portanto, proposi- lores podem ser alterados para mais, faga parte do arquivo surgird a mensa- 

talmente simples e didatico. Sua maior repito, d custa de uma diminuigdo na gem “INDICATIVO NAO REGISTRA- 

fmalidade e, alem de mostrar mais uma capacidade de arquivamento. As varia- DO”, seguida do menu, 

utilizagdo do micro, a de chamar a aten- veis CN, CE e CD sao os comprimentos, Todos os registros podem ser altera- 
9S0 para certas tecnicas de programa- respectivamente, do nome, do QTH e da dos, inclusive o indicativo. Para tal, o 

9S0 de grande utilidade para os nova- data. mais pratico e primeiro chamar o regis- 

tos. 0 programa deve ser digitado com os tro com “1”, anotar o seu numero e, 

0 programa armazena os dados de cuidados habituais, e testado em segui- entdo, digitar “3”. Serd perguntado o 

urn QSO em apenas quatro campos. 0 da com dados ficticios. Ao se digitar numero do registro a ser alterado e, em 

leitor interessado podera modificd-lo a RUN e NEWLINE aparecerd o seguinte resposta as perguntas que serdo feitas, 

vontade por meio da insergdo de novos MENU: digite os novos dados, 

campos (QTR, QRG, RST, etc.), evi- 0 comando “4” efetua a listagem dos 

dentemente com prejufzo do numero 1 - PROCURA INDICATIVO registros existentes. Digitar o primeiro e 

total de registros a serem armazenados. 2 — REGISTRA QSO o ultimo endere90S do bloco a ser lis- 

Na configure gdo mostrada, a capacida- 3 - ALTERA REGISTRO tado, obedecendo d orientagao do pro- 

de e de 360 registros, para equipamen- 4 - LISTA REGISTROS grama. 

tos com 16 Kb, ou de 1200, para 48 Kb, 5 - GRAVA COM DADOS Estando tudo correto, podemos fa- 

e a variavel responsdvel por este mime- zer uma copia do programa em fit a cas- 

ro, N, pode ser ajustada na linha 20. Os Nesta altura, a unica opgdo possfvel sete. Embora exista a opgdo “5” para 
quatro campos sdo: e a 2 — REGISTRA QSO. Digitando-se essa finalidade, estamos interessados, 

1 - INDICATIVO, com o maximo de 6 “2”, surgirao no video o numero do neste ponto, em uma copia apenas do 

digitos; primeiro registro vago e o convite para programa, que sera a nossa “matriz” 

2 - NOME, com o maximo de 10 letras; digitar o indicativo, seguidos dos convi- para utilizag5es futures. Para tanto, di- 

3 — CIDADE, com o maximo de 12 le- tes para digitar o nome, a cidade e a da- gite BREAK em um momento em que 

tras; ta. Finda a entrada de um registro, digi- o menu esteja na tela, em seguida GOTO 

4 - DATA, no formato DDMMAA. te “S” se desejar outro registro, ou “N” 3000, ligue o gravador e aperte NEW- 

As varidveis das linhas 40 a 70, que para retomar ao menu. Digite mais al- LINE. Com isto sdo apagados todos os 

serdo utilizadas para o dimensionamen- guns registros, retome ao menu, esco- registros e e desfeita a reserva de memo- 

to das matrizes das linhas 80 a 1 10, de- lha agora a opgdo 1 — PROCURA IN- ria, ficando o programa muito mais cur- 

terminam o comprimento da informa- DICATIVO, entrando, quando solicita- to para ser copiado e em condigQes de 
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De PY1 DWM 



/V qui estamos em nova edigao, com mais um trabalho do 
/"\PY2AQ0-Luiz, comandante-em-chefe da Rodada do Micro. 
Segundo suas proprias palavras, trata-se de um programa essencial- 
mente instrutivo, orientado para o iniciante e que, a par das limita- 
966s de memoria do equipamento a que se destina, pode ser expan- 
dido a vontade, crescendo junto com o usuario, ate se transformar 
em um “LOG** tdo eficiente quanto se deseje. 

CQ! CQ! RODADA MS apela a todos os radiomicroamadores 
para que saiam “de trds do toco’’ e enviem as suas colaboragoes! 
Como ja tive oportunidade de dizer, nosso sucesso - ou insucesso... 
- depen de do material que recebermos para publicagdo. Estou pen- 
sando em inaugurar um topico chamado “Correspondencia NAO- 
recebida**, no qual passarei a citar todas as promessas de colaboragao 
que nao passarem de promessas... Por falar nisso, alguem viu por 
al o PY2AC- Alfredo...: 

Congratulates efusivas da RODADA MS a PY2EM I -Strauss e a 
PY2AIM-Sinesio, focalizados na reportagem “A Safra Jovem*’ (VE- 
JA n9 849, 12DEZ84), pelo desenvolvimento de suas eficientes in- 
terfaces de decodificagao de CW/RTTY. Um pouquinho de pacien- 
cia, por favor, e publicaremos a apreciagdo da interface de CW, ja em 
nosso poder, juntamente com os depoimentos de varios felizes usua- 
rios. 

Correspondencia recebida: de PY3IT-Pivatto, PY2AQO-Luiz, 
PY5CIG-Alcione, GMPR e CWRJ... Registrado, com pesar, o fale- 
cimento de PY2EUZ- Domingos, grande entusiasta do micro e do 
radioamadorismo, pouco depois de ter iniciado entendimentos com 
a RODADA MS para a divulgagao de seus vastos conhecimentos. 

Uma dica sensacional: se voce dispoe de equipamento de VHF 
ou de UHF, saiba que e perfeitamente possfvel transmits e receber 



programas e/ou arquivos via eter, em comunicados ponto-a-ponto 
(por favor, nunca use uma repetidora para esta finalidade) e, o que e 
melhor, sem precisar gastar Q$J com um modem. Como? Simples: 
basta conectar a safda da porta de cassete do seu micro a entrada de 
microfone do radio e a saida de audio do radio a entrada da porta 
de cassete do micro, utilizando conectores apropriados aos seus 
equipamentos. Apos algumas tentativas, e utilizando os mesmos 
comandos do gravador, voce conseguira ajustar os nfveis de sinal, 
exatamente como faz com o gravador, e tera vencido todas as difi- 
culdades. A pesar de ficar restrito a comunicados relativamente de 
curta distancia (que tal dar um trato no seu sistema irradiante?) e 
apenas com possuidores de micros do mesmo tipo que o seu, tenho 
a certeza de que voce tera muitas horas de diversao com esta nova 
atividade, principalmente considerando que o custo e zero, pois 
voce ja tern tudo o que e necessario para ingressar na telematica. 
Escrevam, contando os resultados de suas experiencias. 

Bern, por esta vez e so. Espero poder dizer, em nossa proxima 
edi9fio, que recebi um verdadeiro pile-up de colabora9oes e que o 
carteiro da Reda9ao foi para o hospital com estafa, HI! Ate la, 
bons QSOs e divirtam-se. HPE CUAGN 73 ES GL FM PY1 DWM 



A RODADA MS 6 coordenada por PY1DWM - Roberto Quito de 
Sant Anna. Qualquer correspondencia e/ou colabor agao deve ser 
enviada aos seus cuidados , para a Av. Presidente Wilson, 165, grupo 
1210, CEP 20030, Rio de Janeiro, RJ. Contatos diretos via Rodada 
do Micro (7097 KHz, das 16:00 as 18:00h). Patrulha da Madruga- 
da (7055 KHz, das 22:00 as 23:00h) ou pelo tele f one (0243) 
54-3355, ramal 594. 



entrar rodando automaticamente sem- 
pre que for carregado. 

A op 9 £o “5” do menu somente serd 
usada para a grava 9 §fo do programa com 
todos os registros ativos, ou seja, o Re- 
gistro de QSOs operacional, a ser con- 
sultado e atualizado sempre que neces- 
sario. A grava^o com os registros deve 
ser feita, se possfvel, em HIGH SPEED, 
mas, neste caso o programa nSo entra- 



rd rodando automaticamente quando 
carregado - rode-o, ent£o, com o co- 
mando GOTO 120, nunca com RUN ou 
GOTO 1 !! Da mesma forma, caso seja 
digitado BREAK durante a execu 9 ^o, 
recomece-o com GOTO 120. 

Continuo d dispos^So dos amigos 
diariamente, a partir das I 6 .OOI 1 , na 
Rodada do Micro, em 7097 KHz. Terei 
enorme prazer em encontrd-los por Id, 



para conversarmos sobre este programa, 
ou sobre qualquer outro assunto. 73’s 
e tudo de bom. 

Luiz Carlos Nardy — PY2AQO 6 funciondrio 
publico aposentado e radioamador hd 37 a nos. 
Autodidata em programa^ao, possui um Dis- 
mac D8001 e um CP- 200, sendo este o seu 
preferido. Co/aborador da Rodada MS desde 
sua criagao, 6 o comandante da Rodada do 
Micro. 



5 REM - REGSTRO DE QSO 

6 REM - LUIZ C . NRRpY -PY2RQ0 

7 REM - JftU-BOX 28-CEP 17200 

8 REM - ******************** 
10 LET UR=0 

20 LET N =360 
30 LET T =0 
40 LET CP =7 
50 LET CN = 10 
60 LET CE = 12 
70 LET CD =6 
80 DIM P $ (Nj CP) 

90 DIM N $ ( N , CN) 

100 DIM E$(N,CE) 

110 DIM D $ (N , CD) 

120 PRINT ThB 8; ’’REGISTRO DE QS 

0” 

130 PRINT hT 12,5: " 1- PROCURfi I 
NDICRTO" 

140 PRINT TRB 5; ”2- REGISTRY 05 
0“ 

150 PRINT TAB 5; ”3- PiLTERR REG I 
STRO ’ 

160 PRINT TAB 5, ”4- lISTA REGIS 
TP OS" 

170 PRINT TAB 5; ”5- GRAUR COM D 
ADOS’ 

180 PRINT 

190 PRINT TAB 5; ’’REGISTROS FE IT 
OS. " ; UR 

200 PRINT AT 21 . 5 ; ’’DIGITE UM DO 
S NUMERO 5 ’’ 

210 IF INKEY $= 1’’ THEN GOTO 300 
220 IF INKE y$=" 2" THEN GOTO 600 
230 IF INKEY $ = ' 3” THEN GOTO 90O 
240 IF INKEY$="4” THEN GOTO 200 

0 

245 IF INKEY $ = " 5 " THEN GOTO 100 

0 

250 GOTO 210 
300 CL 5 
310 PRINT 

320' PRINT "DIGITE INDICATING" 
330 INPUT M $ 

340 LET MsLEN M$ 

350 FAST 

360 FOR P = i TO N 
370 LET T$=P$ (P , (M + l) 3 
380 IF M$=P$ip, TO M) AND CODE 
(T $ ) =0 THEN GOTO 410 
390 NEXT P 
400 GOTO 480 



Registro de QSO 



410 SLOW 

420 PRINT P$*P) 

430 PRINT "NOME" ,N$ 'Pi 
440 PRINT "CIDADE" ,E$ (P) 

450 PRINT "DATA" . D$ (P) 

460 PRINT "REGISTRO N . " . P 
470 GOTO 130 
480 -SLOW 
490 PRINT 

500 PRINT " INDICATING NAO REGIS 
TRADO" 

510 GOTO 130 
600 FOR R=UR+1 TO N 
610 CLS 
620 PRINT 

630 PRINT "REGISTRO N.",R 
640 PRINT "DIGITE INDICATIUO" , 
650 INPUT P$(R) 

660 PRINT P$(R) 

670 PRINT "DIGITE NOME" . 

680 INPUT N $ ( R ) 

690 PRINT N$ (R) 

700 PRINT "DIGITE CIDADE" , 

710 INPUT E$(R) 

720 PRINT E$iR) 

730 PRINT "DIGITE DATA" . 

74© INPUT D$(R-) 

750 PRINT D $ ' R ) 

760 IF T = 1 THEN GOTO 830 
770 PRINT AT 9,4; "OUTRO REGISTR 
0? (S OU N.) " 

730 INPUT PS 

790 IF R$="N THEN LET UR=R 

300 IF R $ = " N " THEN GOTO 130 

810 IF PS -. >"N" AND R$<>’’S" THEN 

GOTO 780 

820 NEXT R 

830 LET T =0 

840 GOTO 130 

900 CLS 

910 PRINT 

920 PRINT "N . DO REGISTRO" 

930 PRINT H ALTER AR ?" . 

94© INPUT P 
950 C P INT P 



960 IF R < 1 OR P >N THEN GOTO 940 
970 LET T = 1 
980 GOTO 640 
1000 CLS 

1010 PRINT AT 8,0, "PARA COPIAR 
1020 PRINT 

1030 PRINT "DIGITE NEW LINE" 

1040 PRINT 

1050 PRINT "E IMEDIATAMENTE " 

1060 PRINT 

1070 PRINT LIGUE 0 GRAUADOP 
1030 INPUT 1$ 

1090 CLS 

1100 SAME ."REGISTRO" 

1110 GOTO 120 
2O00 CLS 
2010 PRINT 

2020 PRINT "UAI LIST AP " 

2030 PRINT "DO NUMERO ?" . 

2040 INPUT NN 
2050 PRINT NN 
2060 PRINT ATE 0 NUMERO" 

207Q INPUT MM 
2080 PRINT MM 
2090 -FOR K. = 1 TO 10 
2100 NEXT K 
2110 CLS 

2120 FQR L=NN TO MM 

2130 PRINT AT S , 0 • "REGISTRO N. 

L 

214© PRINT "PREFIXO" PS'_ 

2150 PRINT "NOME" .N5 -L» 

2160 PRINT CIDADE 1 .ES .L' 

2170 PRINT DATA" . D$ (L * 

2180 IF L=MM THEN GOTO- 2250 
2190 PRINT AT £0 .0; "DIGITE 1 PAR 
A CONTINUAP" 

2200 PRINT "DIGITE 2 PAPA PARAP 
2210 IF INKEv $= 2" THEN GOTO iG*' 
0 

2220 IF INKEY* <>"1" AND INKEv 5 
"2" THEN GOTO 2210 
2230 CLS 
2240 NEXT l 

2250 PRINT AT 21 , 0; " DIGITE GUAlO 
UEP: lETRA" 

2260 IF INkEY 5 = " THEN GOTO 22S0 
2270 CLS 
2280 GOTO 130 
3000 CLEAR 

3010 SAUE ’ REGISTR®" 

3020 RUN 
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PERGUNTA 



— Quais computadores, comerciali - 
zados no Brasil , podem operar com um 
modem ? Com um modem ligado a um 
Apple , por exemp/o , eu poderia comu- 
ni car -me (acessar arquivos e programas) 
atraves da I inha telefdnica com um CP- 
500? Como? 

Existe algum computador no merca 
do brasi/eiro que seja compatfvei com 
qualquer computador (Apple, CP -500, 
/ -7000 ...), sendo que cada linguagem 
e compatibilidade seja se/ecionada pela 
mudanga do disquete de um dos drives? 
Quais computadores? (Adriano Roberto 
Lunsqui, SP) 



MICRO SISTEMAS 



A rigor, qualquer computador pode 
funcionar com um modem, para tal bas- 
ta que o equipamento possua uma inter- 
face RS 232 para a comunicagao serial. 
Na pr£tica, entretanto, a dnica restrigao 
existente 6 a disponibilidade comercial 
para tais equipamentos. 

Mesmo que seja possfvel ligar um 
Apple a um CP- 500, nao hS muito sen- 
tido em fazer tal ligag£o, pois os progra- 
mas de um nao funcionariam no outro, 
jd que o BASIC de ambos sSo diferentes. 

Nao existe nenhum equipamento 
compatfvei com todos os equipamentos, 
e isto 6 praticamente impossfvel, pois 
cada um dos equipamentos menciona- 
dos possui uma filosofia de construgao 
interna bem diferente dos demais. 



PERGUNTA 



— Notei que os programas que uti/i- 
zam cddigo de mdquina possuem Vctrios 
tipos de chamadas, como por exemplo: 
RAND USR xxxxx; RUN USR xxxxx; 
PRINT USR xxxxx 6? LET S = USR xxx 
xx. E/as querem dizer a mesma coisa? 
Quando devo usar uma ou outra ? 

Muitos programas tern a seguinte li- 
nha: IF PEEK 16388+256 "PEEK 16389 
= xxx THEN... O que quer dizer esta li - 
nha ? Em que situagdes devo utilize -la ? 

Em MICRO SISTEMAS n? 29, pag. 
25, o artigo "As novas fitas da soft kris- 
tian" menciona algo sobre Azimuth Re- 



gulating System. O que vemaser? (Klaus 
Von Dem Bach, SP). 



MICRO SISTEMAS 



A fungSo USR, na realidade, necessi- 
ta ser precedida por uma instrugSo e pa- 
ra isso qualquer instrugSo do seu equipa- 
mento pode ser usada. A mais comum, 
no entanto, § RAND USR xxxx, pois 
qualquer que seja o valor de retorno de 
USR, nao provocar£ erro para a instru- 
gao RAND. A segunda em importancia e 
LET S = USR xxx, porque desta forma 
a vari^vel S receberS um valor quando 
USR retornar ao BASIC. 

Esta linha representa um teste de 
RAMTOP e serve para indicar aonde es- 
tS posicionado o topo da memdria. A 
sua utilizagao depended do programa 
em questao. 

(= apenas um rufdo homogeneo que 
serve para ajustar o azimute da cabega 
de leitura do gravador. Quern faz este 
ajuste e o prdprio usu^rio, pois o som 
emitido serve apenas para se achar a 
melhor posigao do azimute para uma 
determinada fita, podendo variar este 
ajuste de fita para fita. 



PERGUNTA 



— Possuo um CP -200 e sempre que 
pretendo fazer um programa em Assem- 
bler acabo com o mesmo problema: 
como fazer uma fungao randomica que 
produza numeros a lea tori os e que nao 
siga uma sequSncia como a do tipo que 
a instrugao LET A = INT(30xRND) faz? 
(Luiz Alexandre Reali Costa, SP). 



MICRO SISTEMAS 



Numeros randomicos s6 sao obtidos, 
mesmo em Assembler, atraves da fun- 
gao RND. 0 que se pode fazer 6 colocar 
um contador ate que uma tecla seja pres- 
sionada. Quando isto ocorrer, o sistema 
vai utilizar o valor do contador naquele 
exato momento. 



PERGUNTA 



- Como fago para testar a memdria 
dispom'vel, durante a digitagao de um 
programa, no Microengenho? (Luiz G. 
Sa/amon, RS). 



MICRO SISTEMAS 



A fungao FRE(O) retorna o espago li- 
vre de memdria disponfvel, tanto para 
dados quanto para linhas de programa. 



Se o numero for maior que 0, o prdprio 
numero representa a quantidade de 
bytes disponfvel. Se, ao contr£rio, for 
menor que 0, ent§o a memdria disponf- 
vel 6 65536 menos (— ) o numero. Por 
exemplo: se o numero apresentado e 
—10, a memdria disponfvel serS 65526, 
que 6 igual a 65536-10. No modo 
imediato, o resultado da instrugao FRE 
(0) da a memdria disponfvel sem a 
definigao de qualquer variSvel (real, 
string etc.). Ao rodar um programa e 
apds serem definidas todas as variSveis, 
o valor dado por FRE (0) serS o numero 
de bytes disponfvel, descartando a area 
usada para as variaveis. 



PERGUNTA 



— Por que a Proidgica nao langa car - 
tuchos para o CP -400 com jogos tipo 
Atari e Inte/livision, mesmo levando em 
conta a per da de grdficos, ja que os car - 
tuchos do Atari e do Intel li vision tern 
8 e 16 K respectivamente? O TK-800 
da Microdigital pode utilizar os cartu- 
chos do CP-400 por intermddio de al- 
gum periferico? Qual a memdria do 
TRS-80 Color americano e de seus prin- 
cipals computer games ? Como estao dis- 
postos (cassete ou disco) e onde posso 
compra-los? Gostaria de saber por 
que nenhuma empresa, brasi/eira ou 
americana, nao produz micros com pat f- 
veis com o VIC -20, Commodore 64 e 
Sinclair ZX Spectrum? (Afonso dos 
Santos Souza — PA). 



MICRO SISTEMAS 



O Microprocessador do CP -400 dife- 
re do microprocessador utilizado nestes 
video games. Como os programas que 
vem dentro dos cartuchos sSo escritos 
em linguagem de maquina, esta diferen- 
ga entre microprocessadores impede o 
uso comum dos cartuchos de jogos. 

Nao temos conhecimento da fabrica- 
gao deste tipo de periferico e nem do 
TKS-800. 

O TRS Color americano 4 apresenta- 
do em versoes de 16 ou 64 Kbytes, sen- 
ao que os programas vem em cassete. 

Os custos para se produzir esses equi- 
pamentos aqui no Brasil nao seriam al- 
cangados, devido a problemas de escala 
de produgao. Aliado a isto, tais equipa- 
mentos, principalmente o Commodore, 
utilizam perif6ricos ou componentes es- 
pecfficos, portanto, diffceis de serem 
adquiridos. 



Envie suas perguntas para MICRO SISTEMAS/SEQAO MS RESPONDE: Av. Presidente Wilson, 165/grupo 1.210, Centro. 
CEP 20030, Rio de Janeiro, RJ. 
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O Eippa II Plus 6 um micro computador 
$6 quo tem macro vanlagePS 
E leiio quase artezanalmenie. podanio lestado 
um a um. 

E is$o e uma macro quskdade 
Como e feito com components de alia quahdade. 
daniro dos melhor as padrOes de Engenharia. a 
coni'iaoilidade do Eippa II “Plus e macro 
0 cu&to do manuteng^o e micro - o unico com um eno 
de garamia macro quatioade com macro garantia 
ji com o prego aconlece uma ccwsa ^nleressante, 
deveria ser macro, mas quacdo voce ve-nlica o cuslo 
de uma conhguragSo ve que £ micro 
A assislcncia LGcruca e macro - dsrela do rubrics ntc 
ou a l raves de seus credenciados 
Ele d um Applet compalivel e dispOe de vasla gama 
de expansOcs e perifdncos a sua disposigao - 
CONTROL ADOR DE DRIVE, CP/M PAL-M, 00 
COLUNAS. SOFTSWITCH, 16K. 64 K, 128K. GRAPH +■ , 
SUPER SERIAL CARD. SINTETIZADOR DE VQZ, 
MONITOR III, ele... - macro vantagem. 




m 



Tem hora que precisa ser macro. 

Cont'lusao: Seja para voce ou para sua empresa, 
micro ou macro, lag a como a Redo Globe, a Rede 
Oandeiranles ou a Control que tdm se ublizado do 
Eippa ll Plus em suas nccessidades cmpresanais ou 
como os ItmcionariDS do Bamerindus para suas 
alivioadcs professionals c de lazer 
Fagq como lanlos oqlros, que osl&o aproveilando as 
van lagans de um micro 
que sab e ser macro na r— . , 

hpra Cerla. \ . 

Escolha o Eippa II Plus ' 
a macro escolha. 




/nAcr 



micro macro. 
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Abrir um drive para tentar conserta-lo e arriscado para 
quern nao tcm experiencia, mas cuidar de sua manutenqao 
preventiva e uma rotina facil 



Mantenha o drive 
rodando em ordem 

Jose Carfos Nizu 



E op In [EG gcral quc os drives s£o 
os equlpanientos que mais can- 
sam problems em sistcmas de 
microcompu [adores. Uma ecu a 
comum c aquda em quc sc col oca um 
disquete no drive, aciona-se e mida. Tert- 
ta-se novameiue, e nada. Troca-sc odis- 
quete por oufro e aeontcce 0 mesmo, A 
situa^o deiKa o usuario inuitas vezes 
sem saber o que firzer. Como vamos ver 
adlanfe, Ini alguns proeedijnentos que 
jjudardns nesses casos. 



Os drives nada dials sJo do que um- 
dades de anna mm amen to tie in forma- 
tes L cuja fu.11950 basics e aJocar os da- 
dos na syperf'tcie magnetic* tic um dis- 
quelu, corno m os Ira a figilra I . Um coiv 
junto dc SLnais sai do micro, passa pc] a 
interface e chega final rue id e ao drivc. 
A interface i um dreuilo elelronico e o 
drive um sistema niislo (cktron iconic- 
canico). 

As interfaces sflo dife rentes para os 
diver st )£ lipos de micros* mas as ijifor- 

AE 



mates que chegam ao$ d rives tem a 
me sin a tin alidade, quc podcria ser resu- 
lts Ida como a dc acionar o movimento 
de rotafffo de inn disquete. e escrow r on 
ler as inform ates ncle contidas, \l im- 
portanle saber que nem lodes os driven 
sfto iguais. Os da ! inis a Apple sfto dife- 
rentes dos existcnles para a familia 
TRS-SQ, c mesmo para um delemiinado 
micro existem varios fabricantes dc dri- 
ve, Tudo isso, porem, nJo c problems* 
como veremos. 



Podemos dividir os d fives em dors 
grandes tipos: os da linlia TRS- 80 , que 
servcm para os IBM /PC. Osborne, Kai- 
pro etc,, e os da familia Apple, A major 
parte dos micros nacionais (exceln os 
dc logica Sinclair} se base in cm uma das 
marcas acima 

PRINCIPAIS DEFEITOS 

Agora, com a] guns pom os ja esclarc- 
cidos, vamos discut ir os problem^ mais 



corn u ns, E se sen drive nSo csti funcio 
nan do, nffo desanime, Observe as ques- 
ts a seguir; 

* As Eiga^es estlo bem ft it as? 

* No caso do TRS- 80 , o drive foi bent 
llgado & tomada? 

* O cabo de interconexafSo csta na po- 
si^ffo correta? Caso a Euz verntelha 
(led) nao sc apaguej inverta a posi^ao 
do concctor do drives . 

* 0 disquete foi colocado corrciamen- 
te? 

Na verdadc, quando o drive nflo fun- 
cion a devemos levantar aigumas hip6tc- 
scs para localizar o defeitoro computa- 
dor, a interface, os eabos, os disqnctes e 
Hodmen Le o drive. No caso do micro e 
da interface, a solu^o mais facil e a sim- 
ples troca por outra C 03 npativd h para 
testa r o si stem a, talvcz com um amigo. 
Os cabos um problema k parte e 
muito suscenVeis a defeitos por mau 
contaio. E^r Esso, muito cuidado com 
cles. Em caso de suspeilar que sejant a 
causa do problema, o ideal c medir a 
continuidade com um oh (metro, cut re 
o^ pinos correspond elites, 

£ importance nunca dcsconcciar um 
cabo puxando pel os fio$ s e sim segu ran- 
do pelo collector. O melhor, mesmo, e 
dcixa-los sem pre mterltgados. Os dique- 
ics mcreccm um quadro separado que 
dev e scr lido com muita aten^to. Se por 
climmafSo as quairo prime iras causas 
$&o deseartadas, rest a examiuar o drive. 
Antes dc qualquer providencia, dc si ague 
o cowiputador. E pre pure uma limpeza 
no equipamento com o seguinte mate- 
rial: dlctml, cotonetes^ dtsquete virgern, 
perfex ou um ppno Eimpo que n£o sdte 
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Parafuso de ajuste 
da trilha zero 



Motor de 
traciona-nenco 



Trilho de suporte 
da cabega 



Detetor de index 



Eixo de tracionam^nto 
do disquete 



Parafuso Ja placa 



Figura 2 




Figidra 3 



fiapos, oleo de maquina de costura, cha- 
ves de fenda Philips e alicate. 

PROCEDIMENTO CUIDADOSO 

0 drive e um equipamento muito 
sensivel e deve ser manuseado com bas- 
tante cuidado na hora de ser retirado. 
No Apple e so liberar os quatro parafu- 
sos de baixo e deslizar a tampa para a 
frente; solte depois os outros quatro pa- 
rafusos do mesmo lado, liberando a 
tampa de tras. No TRS -80 (modelo I) 
siga igual procedimento em rela9ao aos 
quatro parafusos, que s 5 o laterais. No 
modelo III, ha um pouco mais de tra- 
balho. 0 micro deve ser deitado de lado 
e retirados os parafusos debaixo. Reco- 
loque-o na pos^ao correta com muito 
cuidado e levante a parte superior do 
computador. Muita aten9^o com essa 
opera9ao para n£o danificar o tubo de 
imagem. Feito isso voce tera a sua direi- 
ta os drives. Entao e so liberar os parafu- 
sos laterais. 

Daqui para a frente os drives do TRS- 
80 ou Apple serao tratados como se fos- 



sem iguais. No caso de alguma particula- 
ridade entre eles sera feita a distin92o. 

Continuando, solte os dois parafusos 
que prendem a placa do circuito impres- 
so e desconecte com o maior cuidado a 
cabe9a do drive. Levante a placa devagar 
e fa9a uma rota9ao de 180 graus. Nao ha 
necessidade de se desligar os conectores 
na parte traseira, mas tenha aten9£o 
para nao danifica-los. 

Na figura 2 temos um lay-out da par- 
te superior do drive. Podemos destacar 
como pe9as importantes a cabe9a, a par- 
te superior do stepper motor e o motor 
do drive. 

LIMPEZA DA CABE£A DO DRIVE 

Grande parte dos defeitos se origina 
pelo acumulo de sujeira na cabe9a do 
drive. Uma maneira facil de limpa-la e 
com o uso de um disquete de limpeza. 
Porem, nem sempre esse disco esta a 
m2o. E devem ser evitados aqueles de 
efeito abrasivo, que podem, no caso de 
serem usados frequentemente, danifi- 
car a cabe9a. De qualquer forma, sua 



utiliza92o precisa ser evitada seguida- 
mente. A outra forma de limpeza e com 
cotonete levemente embebido em al- 
cool. Na figura 3 , podemos ver esse pro- 
cesso. 

Ha uma serie de etapas que devem ser 
obedecidas nessa tarefa. Abra a porta do 
drive, levante com cuidado o mecanismo 
da almofada e limpe a cabe9a. Depois de 
seca, recoloque suavemente a pe9a no 
lugar. A cabe9a tem um movimento pa- 
ralelo ao eixo longitudinal do drive, 
apoiada em dois trilhos. Com o passar 
do tempo e o acumulo de poeira nesses 
trilhos, pode surgir dificuldade para 
que o movimento se processe livremen- 
te, defeito caracterizado por um ruido 
de atrito. Neste caso, pegue um cotone- 
te e umede9a-o com uma gota de oleo, 
passando-o nos dois trilhos. Nao esque9a 
que a quantidade deve ser minima, para 
nao respingar em outros locals. 

AJUSTE DA VELOCIDADE 

Um desajuste de velocidade pode ser 
a razao para alguns problemas. Ha dis- 



Compreenda melhor os pequenos defeitos 



A pequena descry do a scgiiir nao 
tem como objetivo analisar em 
pormenores de funcionamento o cir- 
cuito eletrdnico do drive , mas sim 
auxiliar na compreensao de um possi- 
vel defeito. Para exempli ficar falare- 
mos de um drive de TRS- 80 , cujo 
funcionamento e todo na base de 
hardware , o que nao acontece com o 
Apple, que tambem tem software pa- 
ra as mesmas fmalidades. 

Ao se dar um boot (inicializagao) 
no drive, ao mesmo tempo em que se 
inicia o movimento de rotaqdo do 
disquete , a cabe$a e deslocada ate a 
trilha zero, que e a externa. Nela ha 



informagoes que vao levar a cabega 
para uma determinada trilha onde 
normalmente se encontra o dire tori o. 
Isso e feito (inc remen to de cada tri- 
lha) pelo pulso do index, um circuito 
que detecta cada vez que o furo do 
index, no disquete, passa por ele. A 
trilha zero e detectada por uma chave 
que se fecha quando a cabega retorna 
e o movimento, para frente ou para 
tras, e feito em conjunto por duas li- 
nhas: step e diregao. 

Ha ainda os circuitos de leitura e 
escrita. Todos eles sSo monitorados 
pela interface do drive , que e na rea- 
lidade quern da as ordens para as di- 
versas fases e as interrelaciona entre 



si. Existe tambem um circuito que 
controla a velocidade de rotagffo do 
drive e um potenciometro que permi- 
te sua regulagem para 300 RPM. 

Finalmente, as tensoes requeridas 
sao de +5 e +12 volts, fomecidas por 
uma fonte de alimentagao, separada 
do TRS- 80 , ou pelo proprio compu- 
tador no caso do Apple. 

Nas interfaces os defeitos ocorrem 
por queima de componentes, princi- 
palmente dos CTs e capacitores de 
tantalo. A reparagSo deve ser feita 
por pessoa com conhecimento de cir- 
cuitos eletronicos, empregando apa- 
relhos apropriados. 
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MANTENHA O DRIVE RODANDO EM ORDEM 




Figura 4 - Placa controladora de velocidade, sendo mostrado o poten- 
ciometro de ajuste. 




Figura 5 



Potenciometro de ajuste 
de velocidade 

\ 



quetes que carregam , outros nSo. Ha 
sistemas operacionais que funcionam 
com determinado programa e outros 
para os quais esse mesmo programa nao 
e aceito. fi importante saber que existe 
uma placa que controla a velocidade do 
drive (figura 4). Existem modelos de 
drives — tanto na familia Apple quanto 
TRS-80 — que ja nao apresentam essa 
placa, sendo o circuito de controle in- 
corporado a placa principal (figura 5 ). 

A velocidade do drive deve ser de 
300 RPM e o componente que permite 
o seu ajuste e o potenciometro. Mas 
existem diversos artificios para a regula- 
gem de velocidade, veremos dois dos 
mais utilizados. 0 primeiro deles e com 
o emprego de um programa. Neste caso 
ele vem incorporado normalmente a dis- 
quetes de teste, como por exemplo o 
Apple Cilin. Utilize-o seguindo as instru- 
9 ( 5 es do manual para obter na tela a ve- 
locidade. Depois e so ajustar o potencio- 
metro com uma pequena chave de fen- 
da, girando o eixo para um lado ou ou- 
tro. Deve-se tentar aproxima-la ao maxi- 
mo de 300 RPM, ou em outros progra- 
mas zerar-se a margem de erro. 

Ha tambem o sistema de regulagem 
com o uso do disco estroboscopico. 
Quern n 2 o possui o programa de teste 
pode empregar este m^todo. Vemos na 
figura 6 , um disco que possui em seu in- 
terior duas circunferencias raiadas. A in- 
terna com o numero 50 e a externa com 
o numero 60. O processo e bem simples. 

Pegue uma lampada fluorescente e 
ilumine diretamente esse disco. Acione 
o computador. Como a luz fluorescen- 
te pulsa numa freqiiencia de 60 hz, quan- 
do o drive estiver com a velocidade cer- 
ta havera a impress£o de que a circun- 
ferencia raiada externa do disco esta 




Figura 6 

parada. Para a regulagem ajuste com 
cuidado o potenciometro ate parar o 
disco estroboscopico. 

OUTROS AJUSTES 

Outros tipos de defeitos tambem sSo 
normais, porem menos freqiientes do 
que os ja analisados. Eis alguns deles: 



★ Descentraliza^o do detector de in- 
dex (nao existe no Apple). 

★ A chave (switch) detectora da trilha 
zero pode nao estar totalmente sincro- 
nizada com esta trilha, sendo talvez ati- 
vada um pouco antes ou depois, fazen- 
do com que o movimento da cabe 9 a nao 
seja correto, pois a trilha zero e usada 
como referenda para as demais. No 
Apple a detec 9 aoe feita de maneira dife- 
rente mas com a mesma finalidade. 

★ Alguns dos parafusos com lacre, que 
servem para ajuste da trilha zero, pres- 
sSo da almofada da cabe 9 a etc.,podem 
estar folgados, causando a pane. 

Estes defeitos sao de origem mecani- 
ca e a corre 9 a'o deve ser feita com o em- 
prego de um disco de alinhamento e um 
oscdoscopio de duplo tra 90 . Trata-se de 
um trabalho delicado, que so deve ser 
feito por tecnicos especializados e de- 
vidamente aparelhados. O disquete e 
gravado por uma cabe 9 a especial, tendo 
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Figura 7 



Para os disquetes, tratamento especial 




O s disquetes requerem, sern duvi- 
da, um manuseio bastante cuida - 
doso. Quern ler o artigo de Antonio 
H.P. Aran res, nos numeros 9 e 10 de 
MS, vera que ha muito mais tecnolo- 
gia empregada nos discos flex iv eis do 
que se possa irnaginar. A figura 8 re - 
presen ta um disquete e algumas de 
suas partes. A figura 9 mostra a su- 
per ficie de um disquete e as dimen - 
soes de alguns element os referenda - 
dos entre si. 

Como curiosidade e bom saber 
que a cabega do drive nao assent a to- 
talmente sobre o disquete e vai dai 
uma dica: nao force o disco ao colo- 
cd-lo, pois poderia haver um contato 
for$: a do e o drive nao funcionaria 
adequadamente. Nunca e demais re- 
pet ir as precaugoes necessarias com 
os discos: 

* Mantenha-os afastados de qualquer 
fonte eletromagnetica ou mate- 
riais magneticos. £ comum colo- 
car um disquete encostado ao mo- 
nitor ou televisao e quando se vai 
utiliza-lo nao entra. Provavelmen- 
te foi apagado por um campo ele- 
tromagnetico. 

* Conserve-os em posigdo vertical, 
para nao empena-los, e dentro de 
seus envelopes. 

* Nao fume, coma ou beba em cima 
dos disquetes. 

* Nao coloque os dedos nas ranhu- 
ras de leitura/escrita. 

★ Nao os coloque em lugares mo fa - 
dos ou muito quentes e nem dire- 
tamente sob os raios solares. 

* Escreva as etiquetas fora do dis- 
quete. O uso de canetas ou obje- 
tos pontiagudos ajuda a danifica- 
los. 

★ Nao dobre os disquetes. 

* Em drive que usa uma so cabega 
(face simples) o lado que esta em 
uso e o oposto ao da etiqueta de 



Figura 8 

fabrica. Cuidado redo bra do com 
ele. 

* Lugares que tenham tapetes ou 
carpetes nao sdo os mais indicados 
para que fiquem os computadores, 
pois sao ambient es empoeirados 
por natureza. 

* Nunca passe o espanador em areas 
proximas ao seu micro, pois espa- 
nar so mu da o po de lugar. Use, 
em vez disso, um aspirador de po. 
Finalmente , se o seu drive tern 

duas cabegas (dupla face) as in forma- 

goes contidas nos disquetes (dos dois 



lados) foram escritas com o disco gi- 
rando no mesmo sentido. No caso de 
uma so cabega, tetnos que retirar o 
disquete e inverter a face. Com isso 
es tamos tambem trocando o senti- 
do de rotagao. Nesse caso ha possi- 
bilidade dc se desprenderem parti- 
culas de sujeira do disefuete devido a 
inversao do movimento. Como a dis - 
tancia entre a cabega do drive e a su- 
perfine do disquete e muito pequena 
qualquer particula de sujeira assume 
dimensdes consideraveis, podendo 
danifica-lo. 




2 , 5u 

mill metros 



Figura 9 



duas trilhas (0 e 16) como padrOes de 
referenda. 

A trilha 16 serve para alinhar a cabe- 
9 a do drive. Com o osciloscopio ligado 
em pontos especificos e devidamente 
setado, sSo obtidos dois lobulos, confor- 
me a figura 7. Ha necessidade, ainda, de 
um aparelho ou programa para se deslo- 
car ate a trilha desejada. A trilha zero 
serve para sincronizar a cabe 9 a com esta 
posi 92 o inicial. 

Existem algumas variaveis em jogo e 
para um correto alinhamento devem 
ser afrouxados os diversos parafusos que 
estfto lacrados. Feito isso, gira-se o step- 
per motor nos dois sentidos, ate se obter 
os dois lobulos simetricos e de igual am- 



plitude. Desloca-se a cabe 9 a a trilha ze- 
ro, verificando se esta com o maximo si- 
nal. Qualquer ajuste neste caso se pro- 
cessa no parafuso de parada da trilha ze- 
ro. Outra coisa importante e que o drive 
as vezes se encontra desalinhado para as 
trilhas inferiores e nao para as superio- 
rs, e vice-versa. 

Reposi 9 ao de pe 9 as e talvez o item 
mais problematico, ja que, por exemplo, 
as partes mecanicas nao sao encontraveis 
no mercado. Mas e pouco comum haver 
o desgaste delas. Os componentes ele- 
tronicos (com algumas exce 90 es) s£o 
normalmente de facil repos^S'o. 

Este artigo e resultado da experiencia 
do autor ha varios anos em projetos e 



manuteu 9 ao de microcomputadores, 
tendo mais Finalidade preventiva que 
corretiva. Com esta leitura o usuario 
pode se prevenir contra alguns possiveis 
defeitos. Mas ele deve ter em mente que 
qualquer manuten 9 £o deve ser muito 
cuidadosa, para que nffo se agrave mais 
um problema que ja exista. 

■ 



Jos6 Carlos Niza 6 Engenheiro Eletronico for- 
mado pe/a Faculdade Nuno Lisboa e trabalha 
com microprocessadores nas dreas de manu- 
tengao, projetos e andlises de sistemas na 
Computer Service , RJ. 
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Balancete 

Roberto Martorelli Luz 



Sem duvida nenhuma, elaborar um balancete, por menor 
que seja, e sempre uma tarefa desgastante. Foi com o objetivo 
de facilitar este trabalho que se desenvolveu este programa. 

0 programa se inicia pedindo mes e ano e, em seguida, o 
nome da empresa ou entidade. Apos digitados esses dados, 
ele perguntara se deseja inicializar os lansamentos, devendo, 
entao, digitar-se um S. Porem, apos inseridos alguns dados, a 
resposta devera ser sempre N, a fim de nao se perder os dados 
ja armazenados - no caso de arquivos ja iniciados, podera ser 
posta uma salvaguarda. 

0 menu apresenta oito op^Oes. A primeira delas lista o 
balancete, e a segunda cadastra as contas e o lan 9 amento ini- 
cial. Caso se queira apenas cadastrar as contas, basta digitar o 
valor 0. A terceira op 9 ao adiciona lan 9 amentos, onde sera per- 
guntado se e debito ou credito. Nesta sub-rotina, os valores se- 



rao acumulados e, em caso de erro, os mesmos serao diminui- 
dos atraves da opsSo 7. Apos terem sido digitados todos os 
dados, resta uma pequena rotina que indagara acerca do saldo 
anterior e atual. Estes valores nao sao arquivados, mas apenas 
precedem a impressao do relatorio atraves da op$ao 6. A op- 
9 ^o 4 apenas pede o codigo da conta e a retira juntamente com 
o valor: atraves da op 9 ^o 8, encerram-se os lan 9 amentos, e os 
dados sSo regravados. 



Roberto Martorelli Luz 6 econo mista e traba/ha no Banco do Brasil. Hit 
mais de um ano ele possui um DGT-101, no qua! desenvolve traba/hos 
dentro de sua especialidade. 



1 '* ESTE PROGRAMA EMITE BALANCETE » 

2 '» Econ. ROBERTO MARTORELLI LUZ * 

3 '« AV. 7 DE SETEMBRO, 1183 « 

4 '» FONE* < OSS > 423-1726/1259 # 

5 '« 97.560 QUARAI-RS « 

10 CLEAR 5000 

20 CLS*INPUT"MES ( MMMMMM/AA ) * " , F% 

30 PRINT* INPUT"QUAL A EMPRESA *",JS 

32 PRINT* INPUT"QUAL 0 NOME QUE IDENTIFICARA 0 ARQUIV0",U* 

35 V»="HHH,HHH,HHH.HH" 

40 60SUB 180 

50 CLSiPRINT TAB < 15 > * "*#* BALANCETE 
60 PRINTsPRINT TAB(15),"1. Li*t»r o Balancete" 

70 PRINT TAB ( 15 ) , "2 . Cadastrar Conta e Lancamento Inlcial" 

80 PRINT TAB ( 15) , "3. Adiciona lancamentos" 

90 PRINT TAB ( 15) ,"4. Retlrar um lancamento" 

100 PRINT TAB ( 15) | "5. Imprlmlr o Caixa" 

110 PRINT TAB(15),"6. Fechar o »es" 

120 PRINT TA8(15),"7. Estornar Lancamentos" 

130 PRINT TAB ( 15) | "8. Encerrar os lancamentos" 

140 PRINT * PR INT * INPUT"QUAL A OPCAO ",0 

150 ON 0 GOSUB 340,530,630,760,930,1310.820,1180 

160 IF 008 GOTO 50 

170 STOP 

180 DIM A < 500) ,Ci ( 500 > , VH ( 500 ) , YH ( 500 > 

190 N«0 
200 VH-0 
210 YH-0 
212 DH=0 

214 CH=0 

215 V1H=0 

220 CLS * INPUT"DESE JA INICIALIZAK OS LANCAMENT OS" , L% 

230 IF LS-"S" THEN GOTO 310 
240 OPEN" I" , 1 , US 
250 IF EOF ( 1 ) THEN 290 
260 N«N+1 

270 INPUT HI , A(N) , CS(N) , VH(N) , YH(N) ,DH,CH 

280 GOTO 250 

290 CLOSE 1 

300 RETURN 

310 0PEN"0",2,US 

320 CLOSE 2 

330 RETURN 

340 CLSSPRINT TAB ( ' 5) ,"»** ",JS," »*#"*PRINT TAB ( 12 ) , "BALANCETE 

DO MES DE* ",FS 

350 PRINT STR 1NG4 < 63 , "■" ) 

360 PR INT"C0D . " , TAB < 6 > , "CONTA" f TAB (35) ; "RECEITAS" , TAB < 52 > , "DESPE 
SAS" 

370 PRINT STR INGf < 63 , "-" ) 

380 FOR I«1 TO N 

390 IF A< I )“0 THEN GOTO 450 

400 PRINT USING"HHH",A(I)»*PRINT"-",*PRINT TAB(5),CS(I> 

410 PRINT TA8 < 32) i 
420 PRINT USING VS,VH(I) 

430 PRINT TAB (48) ; 



440 PRINT USING V*,YH(I) 

450 NEXT I 

460 PRINT STRINGS ( 34 ,"."), »PR INT STRINGS(29, "»"> 

470 PR INT"T0TAL RECEITAS *",TAB(32)- 

480 PRINT USING VS,DH ' 

490 PRINT"TOTAL DESPESAS ",TAB(48), 

500 PRINT USING VS, CM ’ 

510 PRINT: INPUT"CONTINUA",GS 
520 RETURN 
530 N=N+ 1 

540 INPUT"C0DIG0 DA CONTA*", A(N) 

545 IF A ( N) =0 THEN 620 

550 INPUT"NOME DA CONTA: ",CS ( N ) 

560 INPUT"DEBITO/CREDITOs",ZS 

570 INPUT"Valor CrS : ",V1W 

580 IF ZS=*"D" THEN VH(N)=V1M 
590 IF ZS="C" THEN YH(N)»V1H 
600 DH=DH+VH(N) 

610 CH=CH+YH(N) 

615 GOTO 530 
620 RETURN 

630 INPUT"C0DIG0 DA CONTA ",X 

640 GOSUB 1250 

650 IF 1=0 THEN RETURN 

660 CLS:PRINT"CONTA :";CS<I) 

670 INPUT"Nova Conta *";C1S 
680 IF C1S< >""THEN CS(I)=C1S 
685 PRINT 

690 PRINT TAB<8>, "RECEITAS", TAB(25), "DESPESAS" 

695 PRINT TAB (8)," ";TAB<25>," " 

I AB <3> * SPRINT USING VS,VH< I ) , SPRINT TAB < 20 ) , s PR INT USI 

No VS , YH ( I ) 

705 PRINTSPRINT 

710 INPUT"VALOR DO LANCAMENTO :",BH 
720 INPUT "DEB I TAR OU CREDITAR (D/C) :",QS 
730 IF QS="D" THEN VH ( I > =VH ( I ) +BH *DH=DH+BH 
740 IF QS a "C" THEN YH ( I ) = YH ( I ) +BM : CH=CM+R H 
750 RETURN 

760 INPUT"C0DIG0 DA CONTA s",X 

770 GOSUB 1250 

780 IF I ( >0 THEN A(I)=0 

790 IF A( I ) =0 THEN DH=DH-VH(I) 

800 IF A ( I ) =0 THEN CH=CH-YH(I> 

810 RETURN 

820 INPUT"C0DIG0 DA CONTA* ",X 

830 GOSUB 1250 

840 IF 1=0 THEN RETURN 

850 CLS s PR INT"C0NT A : ",CS(I> 

860 PR INT * PR INI TAB ( 8 >, "RECEITAS" , TA8 ( 25) , "DESPESAS" 

865 PRINT TAB (8) ," ", TAB (25) ," " 

^ e „: R ^y/ AB<3>J!PRINr USING US, VH(I), SPRINT TAB(20>, SPRINT USI 
Nb Vi ? YH ( I ) 

880 PRINTsPRINT* INPUT "VALOR DO EST0RN0*",KH 
890 INPUT "DEB I TAR /CREDITAR (D/C) ";MS 
900 IF Hi="D" THEN VH( I )=VH( I )-KH*DH=DH-KH 
910 IF MS="C" THEN YH( I >-YH( I )-KH:CH=CH-KH 
920 RETURN 
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930 CLS * L PR INT TAB(20>,"«*« ";JS," *»»•»": L.PR INT T AB ( 1 8 ) , "B AL ANCF.T 

E DO MES DE* ",FS 

940 LPRINT STR INGS < 80 , "=" ) 

950 LPRINT TAB ( 5 ) , "COD . " , T AB ( 1 1 ) ; "CONTA" , T AB ( 50 ) j "RECE I T AS" ; TA8 ( 
69) , "DESPESAS" 

960 LPRINT STRINGS ( 80 , "-" > 

970 FOR 1=1 TO N 

980 IF A( I ) =0 THEN GOTO 1040 

990 LPRINT TAB (5) ,USING"MHH"; A( I),:LPRINT" ~";*LPRINT TAB ( 1 1 ) ,CS 
<I>? 

1000 LPRINT TAB ( 45 ) , 

1010 LPRINT USING VS;VM(I>; 

1020 LPRINT TAB ( 65 > , 

1030 LPRINT USING VS,YII(I> 

.1040 NEXT I 

1050 LPRINT TAB(49>,"=«“== a “ a === a ",TAB<68) ,"============" 

1060 LPRINT"TOTAL RECEITAS ",TAB<4 

5), 

1070 LPRINT USING VS;DH 

1080 I.PRINT"Saldo Anterior ",TAB(4 

5), 

1090 I PRINT USING VS,ANH 

1100 LPRINT"TOTAL DESPESAS ",rAB(6 

5) , 

1110 LPRINT USING VSjCM 

1120 LPR INT"Saldo Atual ",TAB<6 

5)| 

1130 LPRINT USING VS,ATH 

1140 LPRINT TAB ( 47 ) , " ",TAB(67>," " 

1150 LPRINT"T 0 T A I S ",IAB(4 

5 ) , : LPRINT USING VS;PH; 

1160 LPRINT TAB ( 65 ) , USING VS* TM 

1170 RETURN 

1180 0PEN"0" , 2 , US 

1190 FOR 1=1 TO N 

1200 IF A ( I ) =0 GOTO 1220 

1210 PR INTH2 , A ( I ) ; " , " * CS ( I ) , " , " , VH ( I ) , " , " , YH ( I ) , " , " ,DH , " , " , CH 

1220 NEXT I 

1230 CLOSE 2 

1240 RETURN 

1250 FOR 1=1 TO N 

1260 IF A( I )=X THEN GOTO 1300 

1270 NEXT I 

1280 PRINT"Lani:amento nao encont r ado . . . " 

1290 1=0 
1300 RETURN 

1310 INPUT"SALDO- ANTERIOR :";ANH 
1320 PH = ANH i Dll 

1330 INPUT"SALDO ATUAL *",ATH 
1340 TH=ATH • CH 
1350 RETURN 



DIGIT AQAO DE DADOS 
OPERACAO DE MINIS 

programaqAo padrAo 

- BAS / LOG / COBOL / ESTAG. 
LINGUAGENS OPCIONAIS 

- COBOL ANS - IBM 

- BASIC COMERCIAL 
(LABO E SISCO) 

- MUMPS (COBRA 300/500) 
ANALISE DE SISTEMAS 
PROGRAMAqAO DE MICROS 

- BASIC I • INTRODUqAO 

- BASIC II • AVANQADO 

- CP/M • SISTEMA OPERACIONAL 
INFANTO JUVENIL (8 A 16 ANOS) 

- BASIC 1. o/2.o GRAUS 

- CRIANDO COM LOGO 
USUARIOSDE MICROS 

- VISICALC 

- EDITOR DE TEXTOS 



ftp 



PEOPLE 

Computapao 






Alicro 

Slstemas X^c 



MICRO BUG 



EM FIT A 



Sim, desejo receber 

□ a fita MICROBUG, pela qual pagarei Cr$ 20 mil + Cr$ 4.300,00 referente a 
despesas do correio. 

□ os numeros atrasados de MS, pelos quais pagarei o prepo de Cr$ 1 mil* por exem- 
plar. Me interessam as edigdes: □ MS n? 31 □ MS n9 33 

□ MS n? 32 □ MS n9 34 

TOTAL: CrS 

NOME: 

ENDEREPO: 

Cl DADE : CEP: 

Para tal,estou enviando um cheque nominal ATI Editora Ltda. (Projeto MICROBUG) 
Av. Presidente Wilson n9 165,grupo 1210— Centro — CEP 20030— Rio deJaneiro, RJ. 
* Despesas de reembo/so exc/uidas 

OBS. : Os produtos acima podem ser adquiridos diretamente em nossos escritdrios do 
Rio ou Sao Pauio sem despesas de correio. 



O projeto MICROBUG, desenvolvido pela equipe do 
CPD de MS, foi criado para auxiliar o entendimento e 
a explorapao dos recursos existentes nos micros da 
linha Sinclair. Sua construgao, passo a passo nas 
pdginas da revista, tem tido importdncia decisiva no 
aprendizado e desenvoivimento dos usudrios na 
programagao em linguagem de m^quina. 
Devido ao enorme sucesso do MICROBUG, refletido 
nas inumeras cartas que temos recebtdo, a ATI 
EDITORA LTDA. optou por oferecer a versao 
integral do MICROBUG. 

Para tal, foi contratado um estCidio especializado, 
garantindo um padrao de gravag£o profissional e 
uma embalagem inviol4vel que voc3 ir3 apreciar. 
Como a documentagao do MICROBUG comegou em 
MS n9 31 , aqueles que adquirirem a fita terao a 
OPORTUNIDADE DE COMPRAR OS 
EXEMPLARES QUE NAO POSSUAM POR UM 
PREQO ESPECIAL. Aproveite esta chance e 
usufrua logo do MICROBUG em sua forma integral. 
Preencha o quadro ao lado e mande jd o seu pedido. 

TIRAGEM LIMITADA. 





trs-80 trs-80 trs-80 trs-8 



Marcelo Renato Rodrigues 



Controle de Congelados 



Atualmente observa-se um cresci- 
mento considered da demanda de pro- LISTAGEi* 

dutos congelados, seja por motivos prd- 
ticos ou economicos. Para possibilitar produto 

a escoliia do produto com seguran 9 a, 
alem de informar onde encontra-lo rapi- ALMONDEGAS 

damente dentro daquela deliciosa confu- B 

sao que e um congelador domestico, de- 
senvolveu-se este programa. Ele cadas- bolinhos 

tra produtos em disquete, permitindo 
consulta, exclusao, altera 9 ao de dados e BOLINHOS 

obten 9 £o de listagens. 

O FRI e um programa conversacio- CABRITO 

nal e, portanto, a sua utiliza 9 ao e orien- r 

tada atraves de menus, dispensando 
preocupa 9 oes maiores. Foi concebido COELHO 

para possibilitar o acesso aos dados con- 
tidos no arquivo, tanto pelo nome do COSTEL.ETAS 

produto ou parte dele quanto pelo c6- 
digo do registro, permitindo a varredu- COUVL-flor 

ra de todos os produtos com o nome franco 

fornecido. Para isso, ele constroi uma ta- 
bela-indice na memoria que dara a ne- L.EITAO 

cessaria velocidade de acesso quando 
nesta segunda modalidade de pesquisa. PEIXE 

Alem dessa facilidade, o FRI possui 
rotina para formata 9 £o dos dados de pudim 

entrada via INKEY $ e executa o reapro- tor ta 

veitamento dos registros excluidos, oti- 
mizando, assim, a utiliza 9 ^o do dis- torta 

quete. 

fi emitida, quando solicitada, a lista- Figura 1 
gem organizada que pode ser apresenta- 
da de duas maneiras: com os produtos classificados em ordem 
alfabetica (Figura 1) e por gavetas ou prateleiras (Figura 2). 

Na figura 1, cada linha corresponde a um produto, e as 
informa 9 oes de cada um deles, ale'm do numero do registro, que 
e uma das modalidades de acesso, sao acompanhadas porumre- 
tangulo. Cada produto retirado do congelador deve correspon- 
der a uma marca neste retangulo para posterior atualiza 9 ao do 
arquivo em disco. 

Os produtos sao cadastrados atravds de seu nome (14 
pos^oes), descr^ao (20 pos^oes), gaveta (de 1 a 7) e data 
(dd/mm/aa). 

Agora maos a obra e bom apetite! 



Marcelo Renato Rodrigues 4 engenheiro e/etricista, forma do 

pe/a Esco/a Politticnica da Universidade de Sao Paulo. Atual- 
mente ele trabalha na CESP — Companhia Energdtica de Sao 
Paulo co mo Assessor de Plan eja men to da Vice-Presid§ncia de 
Produto e Transmissao de Energia Eldtrica. 



LISTAGEM 01 


PRODUTOS CONGELADOS 


EMITIDA EM 00/00/ 0 




PRODUTO 


DESCR ICAO 


GAVETA 


DATA 


REG 


ALMONDEGAS 


FRITAS COM MOLHO 


5 


12/01/84 


1 


BACALHAIJ 


GRELHADO A BEIROA 


1 


13/02/84 


8 


BOLINHOS 


DE CAMAROES 


3 


10/12/84 


6 


BOLINHOS 


DE BACALHAIJ 


2 


13/01/84 


7 


CABRITO 


ASSADO AO FOR NO 


4 


13/02/84 


5 


CARNE ASS ADA 


A PORTUGIJESA 


5 


18/02/84 


4 


COELHO 


A JARDINEIRA 


5 


07/09/83 


14 


COSTELETAS 


DE PORCO GREL.HADA5 


<f> 


15/01/84 


2 


COUYE-FLOR 


AU GRATIN 


7 


13/02/84 


3 


FRANCO 


FRITO COM MOLHO 


5 


22/12/83 


12 


LEITAO 


ASSADO A MINEIRA 


2 


20/11/83 


13 


PEIXE 


MOOIJECA A CAIPIRA 


2 


12/02/84 


11 


PUDIM 


DE BANANA 


7 


10/02/84 


9 


TORTA 


DE MORANGOS 


3 


15/02/84 


10 


TORTA 


PALMITO E CAMARAO 


6 


12/03/84 


15 



G6VFIA 


PRODUTO 


DFSCRICAO 


DATA 


i 


BACALHAIJ 


GRFI HAOO A Bl 1R0A 


13/02/04 


2 


BOL INHOF. 


DF BACAI HAH 


15/01/84 


2 


LEITAO 


ASSADO A HINFIRA 


20/ 1 l /03 


? 


PI JXF 


MOOUFCA A CAIPIRA 


12/112/04 


3 


BOL INHOG 


DE CAMAROES 


10/12/04 


3 


1 OR TA 


DF MORAMOOS 


15/02/84 


4 


CAIIR 1 10 


ASSADO AO | OK NO 


1 3/02/04 


5 


Al MONDFGAS 


FRITAS COM MOI HO 


12/01/04 


5 


GARNI Af.GADA 


A PORTUGUFSA 


1 8/02/114 


5 


COELHO 


A JARD INF IRA 


07/09/83 


5 


FRANCO 


FR 1 ro com MOLHO 


22/12/01 


6 


COSTEl.FTAR 


DF PORCO GRFI HADAS 


15/01/04 


6 


I OK T A 


P Al Ml 10 E CAMARAO 


12/03/84 


7 


COIIVF-FLOR 


AU GRATIN 


13/02/04 


7 


PUDIM 


DF BANANA 


10/02/04 










GAVFTA 


J : 1 GAVETA 


2 s 3 GAVF1 A 3 : 2 


GAVETA 4 : i 


GAVETA 


5 : 4 GAVETA 


6 : 2 GAVETA 7 : 2 





Figura 2 
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MICRO SISTEMAS, abril/85 



10 'll***#*##**** ****** ********* **********11*11*** #####*# 

15 '# r.ONTROI E OE PRODUTOS CONGELADOS - FRI # 

20 ’# MARCELO RENATO RODR TRUES - SAO PAULO JUl.HO/83 * 

25 '#**######*******################«#####*####******* 

30 Cl EAR 1 OOOQsDl MNOt ( 300 ) , TES < 300 ) ,G<7) :DEFINTI-N:KW=0 
35 DX=P EEK < 1 6923 >4100: MM-PEEK < 1 6924 ) + i 00 : A%=PEEK < 16922 > : D AS=R I GH 
T*<STR1><D%) ,2 > +"/"+R JGHTt < STR% ( MM > ,2>+"/"+RTGHTt<STR*< A%> ,2) sGOT 
045 

40 At= J. NKEY® s IF A‘6=""THEN00T 040 ELSEAZ^ASC < At > : RETURN 

45 UPt=STR INGK62, 131 > :DW=STR INGt< 62, 176 > : SDt^CHR* < 191 > 

50 0PEN"R" , l , "FREEZER/DAT" , 43 

55 FIELD l t 14 AS Nt, 20 AS El, 1 AS Tl, 8 AS St 

60 N=L0F ( 1 ) :IFN< >OTHENFOR 1 =t TON = GET1 , 1 : NOt < 1 > =LEF1 t < NS , 1 4 > +STRt < 

I > s TEt < I > ---Tt+NOt < I ) :NEXTI : CMD"0" , N , NOt < 1 > : CMD"0" , N, TEt < 1 ) 

65 CLS:G0SUB545 :G0SIIBS70 :CZ=i :PZ=B16:TZ=i :G0SUB620 :0PZ=VAL 
<Wt> 

70 IF0PZ< 10R0P7. >6THENG0SUH620 :0PZ=VAL < Wt > :G0T070 

75 IFOPX > 1 AND0PX<6ANDN=0THFNG0SUB85 :G0SUB620 :0PZ=VAL< W%) *G0 

T070 

80 ONOP ZG0T0105 ,195 ,300 ,365 ,445 ,540 

85 PR INT3B13 , " "• SPRINT3B99, "NAO HA REGISTRO - TENTE DE NOVO"; 

90 G0SUB95 :G0SUB100 . : RETURN 

95 F0RNN=lT0400:NEXTNNs RETURN 

100 PRINTo)097,STRINGt<61 ,32) ; sRETURN 

105 CLS:G0SUB545 :PR INT383, STR JNGS < 24 , 42 ) ; : PR INT3147 , "aCADASTR A 
R PRODUTOS*" ; 

110 PRINT321 1 , STRINGS. <24,42 > ; SPRINT""; :FORJ=1TON: IFLEFTt < NOt < J) . 
1 >=CHRt< 191 )THENG0T0i75 ELSENEXTJ:N=N+i :RG=N: JT=N: J=N 
115 PR INT3328, "NOME ======>"; 

120 PR INT3456 , "DESCR ICAO = >"; 

125 PR INT3584, "GAVETA ===>"; 

130 PRINT3712, "DATA ======>". 

135 P7.=34i:CX=2:TX=14:G0SUB620 :N0t=Ul 

140 TZ=2Qs PX=469 : G0SUB620 sENt=Ut 

145 TZ=1:PX=597:G0SUB620 :TEt=Wt 

150 TZ=8:PX=725:G0SUB620 :SAt=Wt 

1 55 LSETNl=NOt : LSETEt=EN% : LSETT t=TE% * L.SETSt=SAt 

160 PUT 1 , RG* NOS < J > =LEFTt < NOt +STR INGt <14," "> , 14>+STRt<RG) :TEl< JT 
)=TEl+N01< J) 

165 PR INT3897 , "> >QUER CONTINUAR <S ou N > ?" ; :G0SUB40 :IFAZ=83TH 
ENG0T0105 

1 70 XZ=N : CMD"0" , X7. , NO* < 1 > s CMD"0" , N , TE* < 1 ) : G0T065 
175 RO=VAL<RIGHTt<NOt< J) , LEN<N0t< J) >-14> > 

180 FOR JT “ 1 TON s IF VAL < R I OH 1 1 < TEt < JT ) , LEN < TEl < JT > >-15> )=RGTHENG0T0 
115 ELSENEXTJT : JT=J:G0T01 15 

185 CLS:G0SUB545 :PR INT383 , STR INOSi <22, 42 > - : PR INT31 47 , "aCONSULTA 

R 0 CADAS TRO*" ;SPRINT3211 , STRINGS. < 22, 42); sRETURN 

190 PR TNT3337 , "E8C0LHA 0 MODO DE PESQUTSA: " ; :PR INT3472, "< 1 > > COD 

IGO" ; :PR INT3600 , " < 2) > NOME"; :PRINT3724 , "SUA OPCAO>>> <<<",:C 

**lsTX-i:P%«738*G0SUB620 : 0PX=VAL < U% > : IF0P%< 10R0PX >2THEN190 EL 

SERETURN 

195 GOSIJB 185 :G0SUB190 : 0N0PXG0T0255 ,275 

200 PR INT3450, "DADOS: 

205 PRINT 3586, "NOME =*«=«> "; NSi ;* PR INT3650 , "DESCR ICAO => ";E5;J 
PRINT3714, "GAVETA ====> "-T5; =PRINT3778,"DATA ======> ",8S»:RETU 

RN 

210 PR1NT3394,"C0DIG0>"; :PX=404:T7.=3:C7.= 1 JG0SUB620 »I«VAL(W* >«I 
FI< 10RI >NTHEN00SUB85 :80T0210 

215 GET 1 , 1 : 1 FLEFTS. < NS , t > =CHR % < i 91 > THENG0SUBR5 : G0T02 1 0 
220 RETURN 

225 PR INT3394 , "NOME ; :PX*4Q2: TX = 14:CX=2:G0SUB620 :N0%=WSi 
230 N0%=l.EFTS<N0* f 14 > 

235 FOR J=IZT0N : Y*=LEFT% < NOS. < J > , 1 4 ) : YS>~LEFT% ( Y«E , LEN < NOS. > > 

240 IFNO%=YlTHENI=VAL<RTGHTS><NO«M J) ,LFN<N0%< J> >-14) > :GETi , I :G0T0 
250 

245 NEXT J : G06UB85 :KW=1 

250 RETURN 
255 G0SUB105 *12*1 
260 G0SUB210 

265 IFKW=1 THENKW=0 : GOSUB05 *G0T065 FLSEG0SUB2OU 

270 PR INT3897 , " > >QUER CONTINUAR <S ou N>?" ; : GOSIJB 40 :IFA%»78TH 

ENG0T065 EL SEG0T0255 

275 G0SUB185 : IZ=»1 

280 G0SUB225 

285 IFKU~1 THENKU s 0 : G0SUB85 :G0T065 ELSEG0SUB200 

290 PR INT3897 , " > >QUER CONTINUAR <S ou N>?" ; :G0SUB40 :IFA7.=78TH 

LNG0T065 FL.GEIZ=.lf 1 SG0SUB235 CG0T0285 

295 CLSs G0SUB545 :PR INT3B7 , STR INGS < 15 , 42 > ; :PR INT31 51 , "*EXCLUIR 
DADOS*"; :PRINT3215,STRlNGSi< 15,42) ; sRETURN 
300 G08UB295 : IZ=1 :G0SIJB190 :X7Z=OPZ 

305 ONX/ZfiOTOSlO ,315 

310 G0SUB295 :G0SUB210 : IFKW=ITHENI<U--0:GOT065 ELSEG0SUB200 

SG0T0320 

315 G0SUB295 : GOSIJB 225 : IFKW=1THENKU=0:G0T065 ELSEGOSUB200 

320 PR INT3917 , "EXCLIJIR <S ou N>?"; XG0SUB40 : IFAX< >83THENG0T065 
ELSEG0SHH325 :G0T0345 

325 F0R.l=i TON : K .l=VAL < R IGHT*fc< N0% < .1 ) ,LEN<N0S>< J> )-14)> 

330 1FI< >K JTHENNEXTJ: J=I 

335 F0R.IT=1 TON: IF VAL < R I GUTS. < TTS.< JT ) , I FN< TE% < JT ) ) -15) ) < > ITHENNEXT 
JT * JT=I 



340 RETURN 

345 LSETNS»-CHR4 < 191 > :LSETE*="":|.SETTS»=SDS.:L8ETSi= ,/ ":»>UTl ,1 
350 N05 < J ) =SD4+STR I NG4 <13," " ) +STR S> < I ) : TE* < JT ) =SD4+N0S. < I > s CMD"0" 
, N , NOS. < 1 ) : CMD"0" , N , TES. < 1 ) 

355 GOSUBiOO *PR INT3897 , "QUER CONTINUAR EXCLUINDO <S ou N)?";Sfi 
0SUB40 :IFAX< >B3THEN00T065 ELSEG0T0305 

360 CLSSG0SUB545 :PR INT3H7, STR 1NGS>< 15, 42 ) 7 :PRINT315t ,"* ALTER AR 

DADOS*"; :PR INT3215, STR ING4< 15 , 42 ) ^ : RETURN 

365 G0SUB360 MZ=1 iGOSUfll 90 : 0N0PXG0T0380 ,385 

370 PR INT3326 , "FAC A SUA OPCAO POR UMA DAS ALTERNATTVAS ABAIXO:", 

SPRINT3455," A SERFM ALTER ADOS* "; *PRINT3502 ," < 1 >"; :PR INT3646 , " <2 

)"; :PRINT3710,"<3)"; :PR INT3774 , " < 4 ) " ; : PR IN T3908 , "l INHA (\ SER ALT 

ERAOA? >>> <<<"; 

375 CX=i : PX=934 : TX=1 s G0SUB620 :KK=VAL < WS, > : 1FKK < 1 ORKK > 4 THKNG0T03 
70 ELSERETURN 

380 G0SUB360 :G0SUB210 :G0T0390 

385 G0SUB360 :G0SUB225 

390 G0SUB360 : IFKW*lTHENKM«0aG0T0440 ELSEG0SIJB200 

395 G0SUB370 :C7.=2:0NKK GOSIJB 400 ,41U ,420 ,430 :G0T044D 

400 PX=599:C%=2:TX«=14:G0SUB620 :N0Si=WS. 

405 LSETN4=N0% s G0SUB325 : N04< J ) =LEFT4 < NS. , 1 4 ) +STR4< I ) : TE4 < JT ) =TS 
+N0S. < J > s CMD"0" , N , NOS. < 1 ) s CMD"0" , N , TESi < l ) sPUTl , IX sRETURN 
410 TX=20:PX=663:G0SUB620 :EN1--WS. 

415 LSETES>*=ENS» s PUT! , IZsRETURN 
420 TX=l:PX*727:G0SUB620 :TEi=USi 

425 LSETT4=TE4 : G08UB325 : TESi < JT ) =TESi + N0S> < J > :CMD"0" , N, Tt Si< 1 ) :PUT 

1 , IZsRETURN 

430 T7.=8:P7.=79i:G0SUB620 :SAS.=W% 

435 LSETSS^SAl : PUT1 , 1% : RETURN 

440 GOSUBIOO : PR INT3897 ," >QUER CONTINUAR (G ou N)?"; s GOSIJB 40 
: IFAX=78THENG0T065 ELSEG0T0365 
445 STX=PEEK < 14312 ) AND240 

450 IFSTX< >40THENPR INT8897 , " > > IMPRESSOR A NAO DISPONT VEL " ; * G0SIJB9 
5 JG0T065 

'455 CI.S:GOSUB545 : PR 1 NT3897 , " > >IMPRIMIND0"; 

460 LPRINTTAB <6)"LISTAGEM DE PRODUTOS CONGELADOS EMITIDA EM ";DA 
Si:LPRINT 

465 LPR INTTAB < 5 ) "PRODUTO" ; TAB < 23 ) "DESCR ICAO" ; TAB < 4 1 ) "GAVE TA"; TAB 
< 50 ) "DATA" ; TAB < 58 > "REG" : LPR INT 
470 F0RI=1T0N 

475 IFLEFT5 < NOS. < I ) , 1 ) “CHRS. < 191 >THENG0T0495 
480 K = VAL <RIGHT5<N01< I ) , LEN< N09i< I>)-14)):GET1,K 

485 LPRINTCHRS»<255> ; TAB < 3 )N% ; TAB < 19 ) E5; TAB < 43 ) TS. ; TAB < 48 )S% ; : LPR I 
NT USING" II IIMHM" ; K * : LP R INTTAB < 63 ) CHR5 < 255 ) 

490 NEXTI 

495 LP R I NTs LPR I NT: LPR INTTAB < 0 ) "GAVETA" ; TAB < 1 1 > "PRODUTO" ; TAB < 27 ) " 
DESCR ICAO" ; TAB < 48 ) "DATA" : FOR I * 1 T07 : G < I ) =0 s NEXT s LPR I NT 
500 F0RI=1 TON 

505 IFLEFTS.< TE%< I >,1)=CHRS.< 191 )THEN520 

510 K=VAL <RIGHTK TE$< I > , LEN< TEt < I) )-15) >*GETi ,K 

515 LPR INTTAB <2 ) Tt ; TAB < 8 )N%;TAB < 24 >Ei; TAB < 46 > S% * TX=VAL < T% > :G< TX > 
a G< TX) + 1 
520 NEXTI 

525 FOR I“lT05s LPR INT:LPRINTTAB<0)STRINGS»<6,".");TAB<8)STR INGt < 1 4 
, ;STR INGS <20, ".") « T AB < 46 )STR INGt <8 , > *NEXT s LPR INT 
530 F0RI«=1T07:LPR1NT"GAVETA";I;":";G<1) ,:NEXT 
535 LPRINTsLPRINT :G0T065 
540 CLOSE SEND 

545 PRINT3961,DWt;:PRINTai,UP%; 

550 FOR IC»0T0960STEP64 SPRINT3IC, SOt ; s NEXT I C 
555 FOR IC=959T063STEP-64 *PR INT31C , SD% • sNEXTIC: 

560 FOR IC=126T0127sSET< IC, 47) sNEXTIC sF0RJ=45T047:SET< 127, J)sSFT< 
126, J) sNEXTJ 
565 RETURN 

570 PRINT3B3,STRlN0%<26 r 42> ? :PRINTai47 f '^CADASTRO OE CONGELADO 
S*"; 

575 PR INT321 1 , STR INGSi <26,42) ; 

580 PR INT3338 , " < 1 > ) CADASTRAR PRODUTOS"; 

585 PR INT3384 + 10, " < 2 ) ) CONSULTAR CADASTRO"; 

590 PRINT3448+iB,"<3) > EXCLIJIR DADOS"; 

595 PRINT3512+18,"<4) > ALTER AR DADOS"; 

600 PR INT3576+18, "<5) > LISTAGEM"; 

605 PRINT36 40+18, "<6) > FIM DO PROCESSAMENTO" ; 

610 PRINT 3772, ">>>OPTE POR UMA DAS ALTERNATIVAS ACIMA >>) << 

<"; 

615 RETURN 

620 Wt=""sUX=OsCRSi«CHR%< 131 ) :PSS»="." 

625 PR INT3P Z+WZ , STRINGS < TZ-WZ ,"."); 

630 PR INT3PZ+UZ , CRS. ; SFOR Y=1T025 5 YS>- INKEYS, s IF YSi< >""THEN635 ELSEN 
EXTY :PR INT3PZ+IJZ , PSt ; s FOR Y= 1 T025 s Yt = INKEY IFYt< >""THEN635 ELSE 
NEXTY : GOT 0630 
635 IFYS»=CHRt <24 ) THEN620 

640 IFYSi=CHR%< 1 3 ) THENPR I NT3PZ+WZ , STR INOSi < TZ-WZ , " " ) ; sRETURN 
645 IF Yt=CHR% < 8 ) ANDWZ >OTHENPR INT3PZ+WZ , CHRt < 8 > ; :WZ*WX-i s Wi=LEFTS» 
(Wt.WZ) :CRS.=CHRS»<131) sPS5="."sU0T0625 
650 IFWZ=TZTHEN630 

655 IFCZ=1AND( YSi<"0"0RYS»>"9" ) THEN630 
660 CFCZ=2AND<YS<" "OR Y*B >"z" ) THEN630 

665 PRINTaPZ+UZ,Yi;.*Ut=USi+Y%:UZ=ldZ + l:lEWZ=TZTJI£NCRS,=" "sPS3i=" "s 
G0T0630 ELSE625 




PARTICIPE 
COM SUA 
OPINIAO 



MICRO SISTEMAS 6 feita para voce. Escreva-nos contando suas 
experiencias com seu micro, qual sua 3rea de iriteresse, o que voce quer 
ver publicado e o que voce acha de MS. 

E lembre-se: todo leitor que nos escreve concorre automaticamente a uma 
assinatura anual de MICRO SISTEMAS. 

Mande logo sua opiniSo para a REDACAO de MICRO SISTEMAS: 

Rio de Janeiro - Av. Presidente Wilson, 1 65/grupo 1 21 0, RJ, CEP 20030 
S3o Paulo - R. Oliveira Dias, 153, Jardim Paulista, SP, CEP 01433 






Sinclair Sinclair Sinclair sine 



Controle de conta bancaria 

Silvio Elsio Donato 



Este programa, para os micros da 
linha Sinclair ou compativeis com no 
minimo 16 Kb, destina-se ao controle 
pessoal de conta-corrente, arquivando 
langamentos e depois apresentando-os 
em forma de extratos. 

0 programa possui quatro op9<5es: 
lan9amentos — onde o programa pede os 
dados necessarios para a forma9^o de 
extratos; extratos — que sao exibidos 
de acordo com os lan9amentos; iniciali- 
za9ao - que dimensiona o arquivo, de- 
vendo ser utilizada uma so vez e grava- 
9ao - que transfere para a fita todos os 
lan9amentos para um posterior acesso 
pela op9ao 2. 

A opera9So do programa e muito 
simples. Logo que carregado, ele j£ exi- 
be as op9oes descritas acima. Se o pro- 
grama vai ser utilizado pela primeira 
vez, deve-se pressionar a tecla 3 , que 
equivale a fun9ao de inicio do arquivo. 
Note que, por medida de seguran9a, o 
programa pede que esta op9ao seja con- 
firmada. Isto se deve ao fato de que 
uma vez ativada a fun9£o de iniciali- 
za9^o, todas as varidveis, se j£ existen- 
tes e preenchidas, sao zeradas e redi- 
mensionadas, perdendo-se, entao, todo 
o arquivo. 0 mesmo acontece com a te- 
cla RUN. Portanto, so utilize estas duas 
teclas para o caso de se estar usando o 
programa pela primeira vez. 

Se o programa j i possui lan9amentos 
quando carregado, e voce deseja incluir 
mais lan9amentos basta optar por 1 
que ele localiza o ultimo lan9amento 
e fica pronto para receber outro em se- 
guida. 

A op9ao 1 pede dados na seguinte 
ordem: dia, mes, histdrico e valor. Ob- 
serve que e exatamente o essencial para 
se ter um bom controle da conta-corren- 
te. Para cada histdrico foram reserva- 
dos 15 caracteres, de modo que se pos- 
sa especificar a origem do debito ou cre- 



dito. Quando se entra com o valor, sem 
os centavos, o programa pergunta se e 
debito (D) ou erddito (C). Respondida 
esta pergunta, ele imprime na tela o va- 
lor, com sinal negativo caso seja um de- 
bito. Em seguida surge a mensagem de 
confirma9ao para que o lan9amento 
seja conferido. Em caso positivo, o sal- 
do e atualizado. Se nao confirmado, o 
lan9amento 6 apagado, as variaveis por 
ele ocupadas sao zeradas e novamente 
surge a mensagem pedindo para entrar 
com o dia, mes e assim por diante. 

Cada vez que o lan9amento e confir- 
mado e o saldo e' corrigido de acordo 
com ele, o programa pede automatica- 
mente outro lan9amento atraves da per- 
gunta: “Dia?”. Para poder sair da op- 
9^0 lan9amentos, basta responder “0”, 
e entao, o programa volta ao menu ini- 
cial. 

A op9ao 2 (extratos) pede pelo nu- 
mero do extra to desejado. Esse numero 
vai de 1 a 8 no programa original, mas 
o arquivo tern capacidade para 96 lan- 
9amentos. Pore'm, nada impede que esta 
capacidade seja aumentada, fazendo-se 
necessario observar apenas a memoria 
disponfvel e a velocidade de acesso aos 
dados de um arquivo maior. Logicamen- 
te, para esse fim deve-se alterar a estru- 
tura original do programa. 

Uma vez fornecido o extrato dese- 
jado, surge a mensagem “Outro extra- 
to (S/N)?”. Em caso de resposta positi- 
va. o programa pede o numero do extra- 
to, caso contrdrio. novamente aparece 
o menu inicial. Cada extrato comporta 
12 lan9amentos. 

Depois de feitos todos os lan9amen- 
tos desejados, basta pressionar a tecla 
4 , grava9£o, e transferir, desse modo, o 
programa e os dados para uma fita cas- 
sete. 

Por ocasiao de consulta posterior, ou 
seja, do carregamento do programa com 



dados ja arquivados, nao e necessario 
pressionar a tecla RUN, pois o programa 
jd sai rodando. 

Este programa possui 6tima formata- 
9ao de tela e e esteticamente bem apre- 
sentado. Entretanto, deve-se ter muita 
aten9£o ao digitd-lo, pois certas linhas 
possuem fdrmulas varidveis usadas nas 
coordenadas de impressao de dados na 
tela. 



Silvio Elsio Donato 6 formado em desen ho 
arquitetonico e trabalha, no momento, como 
bancario. 



5 


LET 6$ 




10 


PRINT 




15 


PRINT 




20 


GOSUB 


5000 


25 


PRINT 


RT 1.0; B$ 


30 


PRINT 


RT 1 ; 8; "CONTR BRNCRRI 


R" 






35 


PRINT 


RT 7,8; " 1 - LRNCRMENT 


OS“ 






40 


PRINT 


RT 9,3; "2 - EXTRRTOS" 


45 


PRINT 


RT 11,3; "3 - INICIRLI 


ZRCRO “ 




50 


PRINT 


RT 13,8; "'4 - GRRURCRO 


55 


PRINT 


RT 21.0;B-$ 


60 


LET 0$ 


i = INKEY $ 


65 


IF 0$ : 


"l" OR O $ > " 4 " THEN GO 


TO 60 




70 


LET 0 = 


URL 04 


75 


GOTO 0*1000 


1000 


GOSUB 


5000 


1005 


PRINT 


RT 1,0; B* 


1010 


PRINT 


RT 1,8; "LRNC'RMENTO" 


1015 


LET 5 = 


0 


1020 


PRINT 


RT 3,0; "DRTfl " ; RT 3,11 


; "HIST. 'CRT 


3,23; "DEB/ CRED" 


1025 


GOSUB 


6000 


1030 


FOR 1 = 


C TO 96 


1035 


IF 1 = 13 OR 1=25 OR 1 = 37 OR * 


1=49 


OR 1=61 OR 1=73 OR 1=35 THE 


N G03UB 7000 


1040 


PRINT 


RT 21,0; B$ 


1045 


PRINT 


RT 21.0; "DIR 7 



56 



MICRO SISTEMAS, abril/85 
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Fnf» 



... que as ckciscessao rapitfas e os segundcs 

preciosos. 

Sen comprador nao pode parai por Eallade 
Fewrnuiarios, Suprrme-niM £ Acessinos. 
Vbce pnecisa de um dicndimenio sejurq de 
quern conhece o assunco. Por iho, estamos 
^n^ndOdmai^compld^^d?delojfisc5eSnformfltodo pais; o COMPUTER SHOPPING MOORE 
Vo cl tera Aiendimento Imediato, Fronts Efiuega, Oiinti Varied aete e Freijo Juste do qir-e 

preasar e na quantidadfc deseja da. 
Ancle os news endere^os que vaosokidonar suas ftecesskt^eme^rKiefe 
As La jas de I ntormatka do Co inputer Shopping Moore sao ageis, ef icientes e garantidas pelc 

nome Moore 
E foiam a mesma Irngu^gem que vo ce, 



COMPUTER 

SHOPPING 

MOORE 

HorrnuK ‘ Id.: (0J1) 34US33 • Bluflienw ‘ 
fti !W7Jj23.03]]*C4m(jinas-Te, 

• Curitiba - Tel.: flM 1 ) 99+ 5861 * Mdraui' 

U . 6344 . feefc ■ Tt i = (Ul > SSI m 

• Janeiro - TeL (DS1 ) 590.0144 

• SaWsdo. - lei.: (07 1) ■ * fco Rgi 

Tel.8J2.3314 ,v 

&/ 

■ Entrepostcs 



fofimjlariot • diskette * diseos • fitas msgnttkas * fins ImprtJtarts * mfrrcis * fr«sm«iilHkirM * itiqucl» * equip, de scguunfj! 



ftT;-pf.>aLJ^aO 



CONTROLE CONTA 8ANCARIA 



1050 
LG55 
OTO 
1060 
1065 
10^0 
10^5 
10 50 
1055 
1090 
GO T C- 
1095 
1 130 
1105 
1M0 
1115 

use 

4 IBS 
ED cC 
1130 
1135 
i * *■ 

11J.3 

HAS 

IIS© 

GOTO 

1150 
1150 
1155 
11^0 
N " 
11“5 
1130 
1135 
1100 
C-OT0 
1195 
1200 
12©E 
1210 
1213 
1220 



INPUT C ili 

if Din 0 os s D n them g 

1053 

IF Dll' =0 THEM GG3UB 5000 
if r iii ~ 0 them s 0 to s 

-RINT AT 1-1.0 D i I] 

ARJNT AT J. M 1 ” 

PRINT fiT 21,0 'HE 5 ' 

INPUT Mil' 

if Hin i4 dr mti 1 - the. i 
1055 

PRINT AT X+L ,3,r Xi 
PRINT fiT 21.G HIST 
INPUT ms I-, 

PRINT AT 1+l 5. Mfi. I 
PRINT AT 21-0 UALGR 
INPUT U ' 1 1 

PRINT fiT 21 ., G ['EB ipi Gu CP 
LET B*±lNfcE*i 

IF tfi = ■: r M E’> J_ET «.| « El q V I 

ll 

IF 0t = ■; ' t^e:, iOT0 1155 

IF 04- C- "HE* &OTO 1155 
IF 04 D 0P 01 "C THf:. 

1130 

ur 14 = 5TP 5 U II 

LET X = u£u 14 

PRINT ~t ;+Ui3i-E;y!:i 

PRINT -T 21,0 ■■-COMFrPMR ■ 

let I- 5 = 1 1 i^ E , 1 

IF 04= ‘5 then MTD 1205 

IF Qi= N t^Eh 5 or 0 1195 

IF o* f OP 01 "M Tm£', 

: 175 

PRINT hT J+l . 0. 51 
GOTO 10^0 
LET Smft'+UIJj 
lET Z«*STR» i 
lET 2 »LEm Zl 
PRINT AT i* .IS. 



1253 PPItJT AT £S-Z 5 
1230 NEXT X 
1235 GOTO 5 
5300 GftSuE 5C00 
2005 5=0 

2010 PftlMT fi" 21.0 El 

2015 PRINT m“ 1 . 0,64 

2026 FAINT or 1 5, "E.KTRRT05 • 



2025 PRINT hT 3 0. t-ATA’ AT 3 1 1 
1 H I5T l ■ AT 3 22, "DEB 0PEC- 
203 D =RINT fiT 21.0 ' Nfi 00 E>:TR»t 

O ?“ 

2035 INPUT E 

2OA0 EF E 1 3P E:£ Then GGTCJ 201 

5 

2©a; PRINT at 21 0 64 

JOS0 PRINT AT 21.0 ■ E -TBRtq nr 
205S _ET la - ; E-li 4I2 j * i -I p i *4 

206© .ET ■ =. r iE-11 *12- 4i 
2055 = OR J = 1 "3 --1 
2070 .r 
20 "5 ^E<.T ._. 

2050 >=0R I=- ^"0 

2035 RRINT AT I + l 3 MJj 
2-390 IF [M.H =0 T lE 1 f GOT Q r0O3 
209= 1 PINT AT I+i,2 AT Jti. : 

•■ I AT 1*1 6 1-5 l 

2100 _5T Zl=5TA t U : 

2105 i_ET I=iE+j Z 1 

2110 PRINT AT I-L.3I-I. ■' 2 

2115 _5T z *5-.’-: 

2120 i_ET Il = 5TRl f 
2125 _5T I=i_£N ZB 
2130 PRINT AT tf 

PRINT AT ift. ll rRLDO - 
2140 PRINT AT i*.2‘2-I I 
SI 4* WE*T : 

S150 PRINT A- £j, o El 

S1BB PRINT A" 21 0 OUTRC E; ■ 7 RA T 

0 ti m * ■ 

ilftO nr r “ i =.itjr e i E 

S135 IF 04= 5 “fiE'v 10T0 S0O3 

21^0 IF 04= r: ~n|?H £CT0 5 

21"5 IF 05 = OP 01 ' n ; - THEN 

GOTO 2150 

30OG PRINT 11 ,i. lONFIRHO INI 

Cl Ai_ II AC. AC i 5 N l " 

5G05 uF Oi=I«KCv» 

2010 if 04 = =. then 20 r o iso? 

Z015 if 0i= N THEN ROTO 2-025 

1020 IF Of OR 04 'ti THEN 

GOTO 1005 

2.025 PRINT AT 11.0.E4 
3030 *OT0 S 
3035 G04UB SO*© 

3040 PRINT AT 3 5i " DIMENSIONED! 



fiROUIUO 11 
3045 RRUSE 50 
3050 Mm 0 
3055 CEM MI9S1 
30*0 C-IN rt 5 i9E. 151- 
J065 DIM Vs96i 
3070 LET 2=0 
3076 G0SUE 5000 
7O50 GOTO 6 
A 0-£J0 zfl'JE 1 BANCO “ 

40O5 GOTO 5 

3000 FOR £ t 2 TO 16 

5005 FR3MT AT g go* 

5010 N*XT * 

5015 RETURN 

6030 FOR 1*1 TO 9E- 

60*5 IP D ' ! ■ ■© tHE?; GOTO EOIO 

5010 L£T S-S+’LMXl 

601E N£VT f 

5020 lST 3 4 = 5t R 4 f 

6025 L£T Z £. L EN Zl 

5030 PP"NT A^ 10.11. -5 Al DC - ' 

6035 PRINT A T 15.29-1 5 

6040 LET C=I 

604? IF C - 1 T HENi LET l=4 
6030 IF L ±1 THEN RETURN! 

605S LET K =awT iE 12 > 
v©6© LET l = i i X ! - -ti 
6065 LET 0= ^ <*12 f *1 
6©^0 F 0R i- =0 TO C-l 
60^5 LET If^BTRs p ■ 

6*30 LET ZiLEn is 

5*55 RR EMT AT mL.O. D .p L PIT ¥■ *l - 
2 AT ML I M i> AT ► * L 6 hj' 

Ki ,RT k +l 3 1 - Z : 1 H 

6090 NE>T F. 

6095 P.ETURN 

“■000 f 0 4= 6 = 5 tq ie 

"005 PRINT AT E 0,61 

701O '.E-T 5 

7015 PRINT AT 2i 064 

7020 lET l=l-10 

""025 AETUPN 

3000 7 A InT at I j-l O.BS 
5O05 GOTO £150 






Con pale </f cairitf fancdrfa 






Micro 

Fiohas 



CONVERSAO DEC/HEX/BIN 




i-:i DiKBO^OO 
01 ftBoanool 
DZ WKraoCllO 
01 MCKlODll 
IS-1 

Of* firxwci^Di 
OGKIDSHi 
DT OCKMKim 
m ooDdiQDn 
Di aoeoiMi 

rk\ ufti3U] Q L U 
DU 00001611 

oc onwuoq 

DU HDOOilDi 
of, umisiij 
tw 00501 1 ll 
LI3 OoOlrWOO 

11 OODKIQOI 

12 OOOIOOIQ 
II MG 1 001 1 
3 4 MQlOlOa 
35. MGlOUiS 
SO O0OI011G 

it ooQiom 
ID M0I1MG 
30 0MT10O1 
i h OKU old 

lit ocorrni 
ic Momon 
ID GGOSHGI 

1 K OGflllLlO 

If OKI i 1 1 1 3 
zo Q&iriow 

2] 03100003 

2% OUKXJOIO 
2i omtwaii 
P01003GG 



3? S 
36 Zf. 
3^ ZfT 

40 Z8 

41 ZOi 

42 2S\ 

2R 

flfl 2C 

to ?.R 
4C IK 
47 2F 

441 HU 
4^ 31 

r j* 12 

^1 33 

^ S4 
51 J5 
5i 36 

55 37 

56 i& 

57 39 
5B 3A 

59 Jit 

60 1C 

61 30 
6/ *E 
51 3f 
CM 40 

65 41 

66 to 

67 ill 

64! 44 

60 4Fr 
VO 46 

71 47 

72 46 
71 49 



OGlGOiOl 
001 00 L 10 

ooioom 

001 fit ODD 
001 (15 DO I 
GG101D10 
DUL0101 L 
00 Loll no 
Ml 03 301 

ooiomo 

Mtoim 

OqlyKKlO 

00 L ] ociQ L 

oniHkiin 
mat lool l 
MH03M 
0011 01 01 
00310130 
Donom 
m) i lhkkj 

OOJ J LD01 

non tola 
003 1 101 1 
naimoo 

DOlUlDl 
00 J 3 1 L 10 
GDI 3 1111 
□ LQQDDGO 
0LM»1 
ntOOQDlO 
OLOOOOU 
010M1 00 
OLDMI01 
01000510 
aiQMlIl 
01001000 

01 cmi am 



74 


4A 


GIDOIUIO 


ill 


jF 


OLlflltU 


145 


44 


100101 00 


Isa 


tsfj 


L0131003 


222 


DE 


no ii no 


75 




o loot on 


liz 


TO 


QlllODDO 




45 


lODLOlOi 


166 


lift 


101 11 010 


221 


OF 


LL0IL113 


7Hj 


*r 


ciswMion 


m 


71 


omwoi 


ISO 


96 


loDloJ in 


387 


m 


L03I1D11 


2Z4 


R0 


mognw 


77 


40- 


r- 1 


114 


72 


aniaoiD 


151 


07 


100103 3 k 


18B 


MC 


lOll 1100 


225 


Ri 


1110000] 


78 


4E 


01001310 


116 


11 


aiiooiL 


5 52 


98 


Ulo: non 


m 


m 


LO1IL101 


2Zf. 


E2 


3 L 1000 L D 


70 


4f 


OlODllll 


116 


74 


omoioo 


151 


99 


1001 1W 3 


100 


UK 


10111110 


22? 


IJ 


IHOOOH 


00 


50 


OlOUKlOn 


IL7 


75 


□inosm 


154 


li 


1001 1010 


10^ 


UF 


l out 111 


226 


F.4 


1 1 100300 


ai 


51 


OlflLMCU 


118 


76 


□1110116 




90 


3oonosi 


19? 


Cfl 


3IOMG0 


229 


& 


1IID01G1 


02 


52 


OlOlOQlQ 


i\9 


77 


03110111 


■ 56 


9C 


loom oa 


193 


Cl 


31000001 


210 


Ek 


11 1003 10 


03 


5) 


03011X111 


120 


76 


oimooo 


107 


9D 


30011101 


394 


HZ2 


IIOWOIO 


211 


El 


moon i 


M 


64 


01010100 


121 


79 


OlEllOOl 


]oe 


9P 


1001 1110 


195 


C3 


330D3Q3I 


232 


EB 


niDioio 


05 




03010101 


122 


7ft 


OUUOIO 


154 


9P 


locum 


196 


G4 


31000100 


233 


Y>' 


11301WS 


05 




olaiolio 


m 


7* 


Dll 31011 


160 


ftu 


3QIOHXIOO 


397 


C5 


13WW1Q1 


234 


Fft 


in 01030 


fl l l 


^7 


01010113 


L24 


1C 


oninoo 


361 


ftl 


1030C1KI] 


39B 


06 


3 3000110 


235 




11301;. I ; 


00 




oianocKi 


i» 


7P 


0UU1D1 


362 


A3 


1CH0W10 


190 


C7 


udooin 


236 


h: 


11101100 




'.A 


01011003 


L20 


70 


Oil 111 10 


361 


ftl 


mi own 


TOO 


Cfl 


L 1001000 


217 


m 


L11OL103 


'TO 


5A 


01OIIO1Q 


'ZV 


7F 


oni mi 


164 


A4 


loloojOn 


Ml 


C0 


11001001 


Z3fl 




maiLUi 


41 


SO 


ll 103 1- nil 




fin 




365 


ft5 


1OSO01O1 


m 


CA 


13001010 


Z30 


EF 


tnomi 


12 


5C 


DIO Ik 100 


m 


ei 


inMoaoi 


365 


ft6 


10 1001 30 


Z01 


Oi 


11001011 


2W 


F0 


11130000 




5D 


moit iP3 


»30 


82 


3GOOOOID 


167 


A7 


101001 1 1 


Z04 


CC 


LI 001 100 


241 


Fl 


1 LllOOOL 






OIOHllt 


U1 


m 


10DWCJ1L 


36B 


fiB 


lOlfllftW 


m 


CD 


L1OQ1101 


242 


F2 


31110010 


55 


*K 


DL0I1L31 


1 Yl 


04 


3 00001 QD 


364 


ft9 


1G3D1003 


zac 


CE 


nwi no 


■ 


P3 


11110011 


0* 


60 


0 1 1 DOOM 


111 


i5 


louDcim 


370 


Aft 


U13 01010 


m 


CF 


tiwnu 


244 


F4 


11110100 


IV 


M 


OLUjODUI 


3H 


06 


1 OOI>03 10 


171 


AH 


L0] 01033 


20fi 


00 


LL01OD00 


24 r i 


F5 


mi ai oi 


'10 


62 


m looDio 


135 




10QDD1 31 


172 


ftL r 


Mil 0 LI DO 


209 


Dl 


iioioom 


246 


F6 


3 IE 10 3 ID 


TI 


0i 


on won 


116 


06 


1000.1070 


in 




10101103 


210 


02 


1 1010010 


247 




lit 10111 


UHl 


on 


onoau.ui 


137 


m 


1W0UW] 


174 


ft E 


lOiDtllO 


211 


m 


1103 0011 


24 B 


V 6 


31 111000 


101 


65 


0M0C1ID1 


110 


BA 


1'Doaiola 


176 


ftf 


10301113 


21 Z 


m 


i moim 


249 


3-0 


13111001 


ioa 




01 IWLLO 


115 


BB 


l wo ton 


376 


W 


1011 00W 


211 


05 


s LDioioi 


260 


FA 


31111010 


m 


67 


OL1Q0II1 


140 


ec fc 


KHKllllXl 


177 


ftl 


LG1 3QD01 


21 1 


06 


1 1010 L Lfl 


251 


FO 


31111033 


104 


68 


OL1O3QD0 


141 


m 


1D001103 


178 




L03I0D10 


7.n 


P7 


11030111 


252 


re 


11111100 


105 


SU 


□IIOIODJ 


k42 


fit 


iwomo 


179 




10110011 


21* 


06 


1 L D 11000 


253 


HJ 


inniQ] 


m 




Q 11010 10 


L41 


BP 


lONllll 


300 


84 


L Dll DlQQ 


217 


rni 


SIO1SO0] 


254 


FE 


limua 


107 


Fill 


oiioion 


L4J" 




;8uloow 


ISi 




101)0103 


m 


m 


1L01JDL0 


255 


FT 


U1UUI 


I0H 


0C 


C13101IOD 


146 


43 


miowii 


302 


Ub 


10110110 


2\7 


nn 


1 1031013 








104 


60 


aiionoi 


140 


42 


IDOIOOLO 


161 


DV 


LmiOLJI 


120 


DC 


1I0UIO0 








■ID 


GR 


01101 110 


M7 


4js 


100100 11 


164 


I'M 


loin cm 


>71 


□0 


3 1 D 1 3 1 01 









Sinclair Sinclair Sinclair sine 



Copysoft 

Sergio Ramalho Rezende 



A finalidade deste pequeno utilita- 
rio e produzir copia de segurai^a de 
qualquer programa em linguagem de ma* 
quina que se encontre protegido. Po- 
de-se dizer que valem os mesmos comen- 
tarios enipregados para o programa 
Copsys, publicado no numero 29 de MS, 
exceto que aqucle era para a linha TRS- 
80 e este e para Sinclair. Vamos a digi- 
ta^ao: 

1 - Carregue da fita o Micro Bug. 

2 - De dentro do Micro Bug crie com 

o comando E uma linha 0 REM 
com 1 23 bytes (E 0, S 123 , x) 

3 — Digite M 4082 e entre com o bloco 

Assembler. 

4 Retorne ao BASIC (comando B). 

5 — Digite a listagem BASIC. 

6 Prepare-se para gravar e digite 
RUN 60. 

OBS.: — Para gravar em high speed 
mude a linha 60 para 60 RAND 
USR 8405. Para utiliza^o siga estas 
instru 9 oes: 

1 -digite POKE 16389, 127; 

2 -digite NEW; 

3 — carregue o Copysoft da fita ; 

4 — apos rodar o programa digite qual- 

quer tecla que ele mesmo se encar- 
regara de posicionar a rotina prin- 
cipal (que ocupa apenas 81 bytes) 
acima da RAMTOP, que ele mes- 
mo cria; 

5 - digite RAND USR 32687; 

6 - para ler um programa da fita digi- 

te L. Antes, porem, digite 1 ou 2, 
para determinar se o programa esta 
em velocidade normal (isto se o 
programa que voce quer ler foi 
gravado com o comando SAVE) 
ou high speed, respectivamente; 

7 — terminada a leitura, a tela perma- 

necerd escura a espera de um co- 
mando. Entao, para tirarmos uma 
copia do programa que se encon- 
tra na mem6ria deve-se digitar 1 
ou 2, visando determinar a veloci- 



dade de gravado. Se nao for digi- 
tado um dos dois comandos o sis- 
tema assumira a mesma velocidade 
de leitura. Prepare o gravador e 
digite G. Terminada a gravado, o 
sistema aguardara um comando, 
que poderd ser L para leitura e 
conseqiiente grava^do de outro 
programa, G para gravar outra vez 
o programa, 1 ou 2 para mudar a 
velocidade de leitura/grava 9 ao, R 
para dar um RESET geral (o mes- 
mo que RAND USR 0). 

OBSERVANCES IMPORT ANTES 

Apos ser mandado para o topo da 
RAM o programa ocupara apenas 81 by- 
tes, o que significa que programas com 
ate 16303 bytes, aproximadamente, po- 
derao ser copiados com esse sistema. 

A tecla BREAK nao deve ser utiliza- 
da se houver algum programa na memo- 
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Bloco Assembler 



1 OUR R I NT AT - 0 . • C 0 P V SOFT Ml 

IRQ SISTEMA 5 1934.'' 

20 PRINT AT 5.0; COMANDOS 
R - RESET” [• ' L - LEITURA” ”G - 
6RAUACA0". ' UELOC IDADE ” . ”1 

NORMAL' . = - HIGH SPEED” 

30 PRINT AT 2*0.0. PARA RODAP 
DIGITE . “RAND USR 3268“’. 

40 IF INKEY $ = ' ” THEN GOTO 40 
50 PAND USR 16537 
60 SAUE COP / ' 

7© RUN 



Listagem BASIC 



ria, pois causaria a perda do controle do 
sistema em alguns casos. 

0 Copysoft foi desenvolvido em um 
TK 85 dotado de high speed. Para aque- 
les que possuem essa fun^ao gravada em 
fita pode ser feita a seguinte modifica- 
$ao antes da grava^ao inicial do Copy- 
soft: 

POKE 16614, GR - (INT (GR / 256) * 
256) 

POKE 16615, INT (GR / 256) 

POKE 16633, LT - (INT (LT / 256) : 
256) 

POKE 16634, INT (LT / 256) 

onde: — GR e o endere 9 o inicial da 
gravado em high speed); 

— LT e o endere^o inicial da 
leitura em high speed. 

A orienta^ao serve tambem para 
aqueles que possuem um CP-200 speed. 
No primeiro caso, o Copysoft pode ser 
colocado em qualquer outra parte da 
RAM, ja que ele nao tern nenhum JUMP 
absoluto nem CALL sobre si mesmo. 
Deve-se fazer apenas uma modifica^ao 
na rotina que o coloca na RAMTOP e 
que come 9 a no endere 90 16537. Para 
aqueles que nS6 possuem high speed, 
eis as instru 9 oes: 

POKE 16607,0 
POKE 16606,0 
POKE 16623,0 
POKE 16624,0 

Como orienta 9 £o final, sugerimos 
que o interessado fa 9 a um teste do Co- 
pysoft com programas comerciais. Se al- 
go estiver obscuro, acreditamos que com 
a digita 9 ao podera ser esclarecido, bem 
como a ideia do utilitario. 

m 



Sdrgio Ramalho Resende tem 18 a nos, con - 
cluiu em 1984 o Segundo Grau no Co/dgio 
Marista Dom SHvtirio, de Belo Horizonte, e se 
prepara para ten tar o vestibular no IT A, onde 
pretende fazer Engenharia Ele trdnica. Possui 
um TK 85 h4 um ano, 4 autodidata em ele - 
trdnica e computaqao, dominando as lingua - 
gens BASIC e Assembler. 
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Sinclair Sinclair Sinclair sine 



Arquivo-agenda 

Marcio F on tenet I e Vianna 



0 programa tem como finalidade o 
manuseio pr^tico de um arquivo-agenda 
para nome, endereso, CEP, bairro, cida- 
de, Estado e telefone de pessoas fisicas 
ou juridicas. Desenvolvido segundo a ca- 
ractertstica modular, na qual as instru- 
9<3es que objetivam a mesma funsSo for- 
mam rotinas altamente independentes, 
ele e, por isso, bastante flexivel a modi- 
flca 90 es e possiveis ampliasOes. 

Quanto k sua opera^o, podemos di- 
zer que e muito fdcil, em forma de did- 
logo, com menus orientando o usudrio 
em todas as fases. Em micros com me* 
m6ria de 16 kb 6 possfvel arquivar atd 
105 registros. Naqueles que possuem 
memoria de 48 kb podem ser armaze- 
nados cerca de 400. 

As rotinas principals do programa 
sSo: 

Entrada de dados — Permite a intro- 
duce dos vdrios registros utilizando a 
indica^o de delimita^o de campo e 
o efeito scroll em linguagem de mdqui- 
na. 

Altera 9 do de dados - Possibilita a 
altera 9 ao ou corre 9 «fo de qualquer um 
dos registros nome, endere 90 , CEP, bair- 
ro, cidade, Estado e telefone. 

Exclusdo de dados - Elimina quais- 
quer registros, renumerando todos os 
outros de ordem superior ao cancelado. 

Selesdo geral - £ uma rotina atravds 
da qual se acessa cada um dos registros 
do programa, digitando para isso a pri- 
meira letra do nome da pessoa preten- 
dida. O micro apresentard no video, se- 
gundo a ordem do arquivo, os dados dos 
indivfduos cujos nomes se iniciam pela 
letra digitada. Dentro desta rotina, a 
parte superior da tela apresenta um 
menu secunddrio indicando as fun^Oes: 

<S> Sele 9 ao— Digitando S o micro 
procura no arquivo o prdximo registro 
que se inicia pela mesma letra digitada 
inicialmente, e assim sucessivamente. 

<M> Menu — Digitando M ele 
apresenta no vfdeo o menu principal. 

<F> Frente - Digitando F o micro 
mostra o registro subseqiiente ao sele- 
cionado anteriormente. 

<R> Retomo — Possui funsao in- 
versa k de F. 



<I> Im'cio - Digitando / o micro 
apresenta na tela sempre o primeiro re- 
gistro em arquivo. 

Sele^ao de Nome - Seleciona no vi- 
deo o nome e seus dados complementa- 
res, bastando para isso digitar o 
nome que se quer consultar, atentando 
para o delimitador de campo. Apresenta 
tambem na parte superior da tela o me- 
nu secunddrio descrito na rotina ante- 
rior. 

Sele^o de telefone — Mesma funsdo 
da rotina anterior, pordm digitando o 
telefone da pessoa a quern se quer con- 
sultar. 

Informa^Ses — A rotina apresenta na 
tela: 

• capacidade mdxima de registros - 

105; 

• numero de registros ocupados; 

• numero de registros vazios; 

• data da ultima grava 9 ao. 

Grava^ao arquivo — Atravds desta ro- 
tina faz-se a grava^o do arquivo em 
flta cassete. 

Impressao Arquivo - Rotina ndo im- 
plementada no programa. 

A FORMA DE DIGITAQAO 

Antes da digita^o da listagem te- 
mos que reservar uma drea de programa 
para introduzir o scroll em linguagem 
de maquina. Para isto, digite em 1 uma 
linha REM com 15 caracteres quaisquer. 
Em seguida o programa monitor (lis- 
tagem 2) e, atravds dele, o Bloco em 
Assembler (listagem 3). Finalizada a en- 
trada, elimine o programa monitor e ini- 
cip a digita^o do programa propriamen- 
te dito, a partir da linha 2. 

Ap6s ter entrado com a listagem do 
programa, para encerrar digite direta- 
mente sem a utiliza93To de linhas de pro- 
grama^o, sempre empregando a tecla 
NEW LINE (ENTER), as seguintes ins- 
tates: 

* DIM K $ i 105 , 23 ) 

DIM L $ i 105 31' 

DIM MS ' 105 , 31} 

DIM NS 1. 105 SI 
LET W=0 

LET OS* ' 15*11.3* 

Ap6s a introdu 9 S:o das instances o 
programa estd completo, bastando agora 



gravd-lo em Fita. De o comando GOTO 
3070, prepare a fita, ligue o gravador e 
aperte NEW LINE. Depois e so esperar 
o termino da grava 9 do (mais ou menos 
6,5 minutos) e pronto. O programa j k 
pode ser utilizado, arquivando a sua 
agenda. 



Mdrcio F on tenet le Vianna 6 engenheiro ele- 
tricista formado pela IPUC — Universidade 
Catdlica de Minas Gerais. Trabalha na CBTU, 
na Gerencia dos Metros. Desenvolve softwa- 
re para micros da linha Sinclair. 



2 REM 

3 REM MARCIO FONTENELLE UlfiNft 
4. REM ARGUIUO AGENDA U2 

5 REM JUL 84 

6 CLS 
25 PRINT 

^S^PRINT MFU 

ARGUIUO AGEND 

A U2 ■hU" , 

30 PRINT " <l>5Et .GERAL" , :2. SE 

L . NOME ' . '* <3 >SEL. TELEFONE" , M <4 >EN 
TRA DADOS" , “ <5 '• ALTERA DADOS’* . "< 6 
vEXCLUI DADOS" . ” <7 > IMP . ARGUIUO" . 
"<3>GPAUA ARGUIUO" ; " <S> INFORM AGO 



31 PRINT AT 18,0; ’JL 

32 — 

"32" 



IF INKEY *s"" THEN GOTO UAL 



33 IF INKEY $ < f " 1" OR INKEY $ "9" 
THEN GOTO UAL "32" 

34 LET U $=INKEY $ 

36 CLS 

40 GOTO UAL • 40"+ = *UAL 
"860 " + ( U $ = " 2 " ) 4UAL "1260" + (U$=* 3 
" ) +UAL " 1460" + (U$="4" ) +UAL "160" 
+ (U$= *5") +UAL "1560"+ (W$ = ”6" ) *UA 
L "2460" - (U$ = "7" ) *UAL "34*+(U$=* 
S " ) +UAL "2960" + (U$="9" ! +UAL "276 



0 " 



199 STOP 

200 REM r=jfgslg»T=> 

210 CLS 

220 LET K=PI/PI 

225 IF K $ I 1 , 1 • =" " THEN GOTO UA 
L "270" 

230 GOTO UAL "70S" 

260 CLS 

270 PRINT AT 21., 0; "1. DIGITE O N 
OME" ; TAB 28 ; " 

280 INPUT K $ (K) 

285 LET N=PI/PI 
290 GOSUB URL "590" 

300 PRINT AT 2 1 . 0 ; K $ ( K ) 

310 GOSUB UAL "590" 

320 PRINT AT 21,0; "2. DIGITE 0 E 
NDERECO" ; TAB 31;"<" 

330 INPUT L $ < K / * 

340 GOSUB UAL "590" 

350 PRINT AT 21,0; L$(K.) 

360 GOSUB UAL ’590" 

37© PRINT AT 21.0: "3 . DIGITE CEP 
. BAIRRO. CID. E5T, TAB 31; " 

380 INPUT M$(K) 

390 GOSUB UAL "590" 

400 PRINT AT 21.0;M$(K) 

410 GOSUB UAL "590" 

420 PRINT AT 2 1 . O : " 4-D IG ITE O T 
ELEF0NE" 

430 INPUT N$(K) 

440 GOSUB UAL "590 " 

450 PRINT AT 2i,0.N$CK) 

460 -LET. NsUAL "7” 

470 GOSUB UAL "590" 

480 PRINT AT 21,0. "CONFIRMA REG 



60 
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AGORA £ MAIS FACIL ASSINAR 



ISTRO - S fM 
435 LET Nsi 

490 GOTO UAL 490“ + (INKEY$=* 5 l 
♦UAL " 10" + I INKEY $ = "N" J +UAL *40 
EOO GOSUB UAL "590" 

502 LET KsK+I 

510 PRINT AT 21,0. "NQUO REGISTP 
07 S/N" 

520 GOT 0 UAL 520 " + K INKEY $ = "5" ) 
♦ UAL 10 " * t INKEY $ = ” N " ) +UAL ** 40 
530 CLS 

550 GOTO* UAL "270" 

560 LET UsK-1 
570 GOTO UAL 6" 

590 FOR 1=1 TO N 
600 RAND USR 16514 
610 NEXT I 

620 RETURN 

700 REM 1»M«! 

70S PRINT "AGUARDE" 

“*10 LET K=K + 1 

720 IF K > =105 THEN GOTO UAL "*'5 
0 " 

730 IF K $ ( K , 1 ^ = • " THEN GOTO UA 

L '260' 

740 GOTO UAL 710" 

750 CLS 

760 PRINT "ARGUIUO ESGOTADO 
770 FOR 1=1 TO 100 
780 NEXT I 
790 GOTO UAL 6 " 

9O0 REM LMrjtorrrfl 
902 CLS 

904 _ET YsPI-PI 

910 PRINT ‘ 5 v 5ELECA0" . " ;M >MENU 

" " FRENTE <R > RET OR NO" . " ; I I 

NXCI0” 

920 PRINT 1 



THEN GOTO UAL 



922 IF Y=i THEN GOTO UAL "1330" 
924 IF Y=2 THEN GOTO UAL '1540* 
930 PRINT AT 11,0. "DIGITE H PRI 
MEIRA LETRA DO NOME" 

940 INPUT 6$ 

950 LET K = P I - P I 
955 IF LEN B $ .1 THEM GOTO UAL 
902" 

960 PRINT AT 5 ■ 0 . "AGUARDE" 

970 LET K. =K + 1 

980 IF K $ i. K , 1 j = ” " OR K > =105 TH 
EN GOTO UAL "6" 

990 IF B $ =K $ ( K , 1 ) THEN GC^O UAL 
"1010" 

1000 GOTO UAl '970* 

1010 PRINT AT 5.0;" 

1020 PRINT AT 9.0;K;" 

1030 PRINT K $ (K) 

1040 PRINT L $ • K ) 

1050 PRINT M $ ( K ) 

1060 PRINT N 5 1 K ) 

1070 IF INKEY$ = " ’ 

"1070" 

1080 LET W*=INKEY$ 

1085 IF U$<>"5" AND U$<>"M" AND 
U $ < > “ F " AND U*<>"R" AND U$<>"I" 
THEN GOTO UAL "1070" 

1090 PRINT AT 9.0;" 

1100 GOTO UAL " 1100"- (U$ = "5" ) +UA 
L " 145" - (U$ = "M" ) +UAL " 1094 * + (U$ = 
"F ’) +UAL " 10" + (U$ = "R" ) +UAL "40 + 
(U$="I")*UAL ”70" 

1110 LET K=K+1 

1120 IF K$ (K , 1) =" ' OR K > =105 TH 

EN LET K =K - 1 

1130 GOTO UAL " 1010" 

1140 LET K=K-1 

1150 IF K =0 THEN LET K = 1 

1160 GOTO UAL "I© lO- 

llSO LET K = 1 

1190 GOTO UAL " 1010" 

1300 REM ?=iiai«ma 
1305 CLS 
1310 LET Ysl 
1320 GOTO UAL "910" 

1330 PRINT AT 11,0: "DIGITE 0 NOM 
E" ■ AT 21 28; " <" 

1340 INPUT 6$ 

1350 PRINT AT 5 0, "AGUARDE *, AT 2 
1,28 " : AT 21,9; " " 

1360 LET K = 1 

1370 IF Ijs" " OP K > =105 TH 

EN GOTO Uhl "6 

1375 IF Y =2 THEN GOTO UAL ' 1410" 
1380 IF B$=K$ ' K . TO LEI: 5 $ THE; * 
GOTO UAL 1010" 

1390 LET K=K+1 
14O0 GOTO UAl "1370" 

1410 IF B$=NS«;K TO LEN B$ ^ THEN 
GOTO UAL "1010" 

1420 GOTO Uhl "1390* 

15O0 REM gjrfaH 
1510 CLS 
1520 lET Y=2 
1530 GOTO UAL 910' 

1540 PRINT AT 11 .0: "DIGITE O T El 
EFONE" AT 21.9 



1340" 



1550 GOTO 
1600 REM (2 
1605 CLS 
1690 PRINT "DIGITE 
DO NOME" 

1700 INPUT K1 
1“*05 PRINT 
1710 IF r i 
Q0 

1720 PRINT 
1730 INPU' 



0 N ■ DE ORDEM 



105 them GOTO UAl 16 



17*0 
34. 

1“*50 RRINT 



ALTERAR NOME “ 5/N" 



$= S" THEN GOTO UAL IS 
ALTERAR ENDERECO" r 



N 

1” 60 INPUT 

1770 IF J$=”5 THEN GOTO UAL 18 
80'* 

1780 PRINT "ALTERAR CEP. BAIRRO. C 
ID . EST , ? S/N" 

1790 INPUT J$ 

1800 IF J$= *5" THEN GOTO UAL "19 
30" 

1810 PRINT ALTERAR FONE - 5. N" 
1820 INPUT US 

1830 IF J $ = " 5 ‘ THEN GOTO UAL "19 
80" 

1832 GOTO UAL "6" • 

1834 PRINT TAB 2S."<" 

1840 INPUT B $ 

1850 lET KS(K1)=B* 

I860 GOSUB UAL "2040" 

1870 GOTO UAL 1750" 

1880 PRINT TAB 31;"<" 

1890 INPUT B$ 

1900 LET LS(K1.»=B$ 

1910 GOSUB UAL "2040" 

1920 GOTO UAL I7S0" 

1930 PRINT TAB 31;"<" 

1940 INPUT 6$ 

1950 LET MS (Ki) =B$ 

1960 GOSUB UAL "2040** 

1970 GOTO UAL "1810" 

1930 PRINT TAB 9;"<" 

1990 INPUT B$ 

2000 LET N$(K1)=B$ 

2010 GOSUB UHL "2040" 

2020 PRINT "CONFIRMA ALTER AC AO'^ 
S/N" 

2030 GOTO UAL " 2030 " - ( INKEY $ = " 5 " 
.'♦URL "2024" - ( INKEY $ = "N" ) +UAL "3 
40" 

2040 PRINT B5 

2060 RETURN 

25O0 REM BBEil 
2510 CLS 

2540 PRINT "DIGITE 0 N ■ DE ORDEM 
DO NOME" 

2550 INPUT Ki 
2560 PRINT KI 

2562 PRINT "CONFIRMA EXCLUSAO? S 

/N" 

2564 GOTO UAL " 2564 "+* INKEY $ = " S *' 
) +UAL "2**- CINKEY* = "N") ♦UAL "2558 

2566 LET U=U-1 

2570 IF K 1 > 105 THEN GOTO UAL "25 
40" 

2572 PRINT 'AGUARDE** 

2575 IF KI =185 THEN GOTO UAL "26 
50" 

2530 LET KS (KI) =K$ (Kl+1) 

2590 LET LS (KI) =L$ (Kl + 1) 

260© LET M $ ( K 1 ) =M $ ( KI + 1 » 

2610 LET NS (KI) =N$ IK1 + 1) 

2620 LET Kl=Ki+l 

2630 IF K$ (KI , 1) =" " THEN GOTO U 
AL "2660" 

2640 GOTO UAL "2575" 

2650 LET KS (KI , 1 ) =** " 

2660 CLS 

2670 GOTO UAL "6" 

2300 REM 
2810 CLS 

2820 PRINT AT 9 . 0 . " CAPAC . MAX . DE 
REGISTROS" : TAB 24 . " 105" 

2840 PRINT "REGISTROS OCUPADOS " 
TAB 24 :U 

2S50 PRINT "REGISTROS UAZIOS'.TA 
B 24: 105 -U 

2860 PRINT "ULTIMA ENTRADA' TAB 
24; 0$ 

2370 IF INKEY S = " " THEN GOTO UAL 
"2870" 

2880 GOTO UAl "6 " 

3000 rem Baam 
3010 CLS 

3020 PRINT "ENTRE COM A DATA 
3030 INPUT 0$ 

3040 PRINT OS 

3050 PRINT 7UD0 OK? S/N" 

3060 GOTO UAL "3060" + (INKEY $= S* 

' +UAL "10"- ( INKEY $ = "N" i +UAL "305 
4" 

3070 SAUE "AGEND0" 

3030 GOTO UAL '6" 
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1000 LET X=16514 
1010 INPUT H $ 

1020 POKE X , 16 +C0DE AS+CODE A$(2 
) -476 

1030 PRINT AT 21 , 0; X; “ ";Ar 
1040 SCROLL 

1050 IF X. = 16528 THEN GOTO 1030 
1060 LET X=X+1 
1070 GOTO 1010 
1080 CLS 
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Usuarios de micros trocando mensagens, lendo e anexando 
informagoes, como num grande quadro de comunicagao. Essa 
e a ideia basica de um CBBS 

CBBS, um quadro 
de avisos comunrtario 

Ricardo Weiss Muricy 



D esde que voce comprou seu mi- 
crocomputador certamente tem 
se dedicado a aprender BASIC, 
desenvolver programas, conhe- 
cer melhor a linguagem Assembler; utili- 
za-o tambem como ferramenta de traba- 
lho na sua atividade profissional e, even- 
tualmente, se descontrai brincando com 
jogos acirradamente disputados com as 
crian^as da casa. Por isso, voce que ja 
leu ou ouviu o termo telecomunicagoes 
por microcomputador, colocou-o de la- 
do sem lhe dar muita aten 9 ao. E hora de 
mudar esse conceito e explorar essa 
nova e maravilhosa possibilidade de uso 
que o micro pessoal oferece. 

Ao adquirir seu sistema, voce seguiu 
uma formula mais ou menos como essa: 
computador mais perifericos e progra- 
mas. Ao acrescentar a esse sistema um 
modem e uma placa de circuito impres- 
so chamada RS 232 (se o micro nao 
veio com uma) voce estara apto a ingres- 
sar no mundo das telecomunica 9 oes. E 
tudo muito simples e relativamente ba- 
rato. Esta simplicidade faz com que 
cada vez mais possuidores de microcom- 
putadores adquiram estes equipamentos, 
e via Unha telefonica acessem os CBBS 
do Brasil e ate do exterior. 

Telecomunica 9 ( 5 es por microcompu- 
tador e um segmento da industria de mi- 
cros que rapidamente se desenvolveu. 
Assim, tornou-se comum ouvir termos 
como on-line, videotexto e modem. 

Tudo isto somado faz parte do que 
se chama a era da informa 9 ao. Este ar- 
tigo nSo vem dizer que a era da informa- 
9 ao e da comunica 9 ao chegou, ele pre- 
tende dizer que ela esta aqui, agora, pas- 
sando por voce. Ele vai dizer tambem 
como voce pode participar. 

Nos Estados Unidos e Europa esta 
tendencia vem sendo seguida ha algum 



tempo. Do conforto de suas residences, 
as pessoas tem acesso a serv^os de tele- 
comunica 9 ao que tornam disponiveis 
a cultura e o conhecimento tecnico e ci- 
entifico que a biblioteca do bairro (se 
existente) talvez nao disponha. Alem 
disso, op 9 oes de noticiario atualizado, 
programas de divertimento, cota 9 oes de 
bolsas de valores, tabelas de pre 9 os de 
lojas etc., est 2 o disponiveis atraves da 
simples opera 9 ao de conectar-se com o 
sistema, via rede telefonica. 

Estes serv^os sao oferecidos por sis- 
temas que gerenciam e centralizam o 
acesso publico as informa 9 oes coloca- 
das pelos donos/geradores da informa- 
9 ^o (Informations Providers). As consul- 
tas sSo feitas ao servi 90 via rede telefo- 
nica, o qual recebe seu acervo do Infor- 
mation Provider. A figura 1 da uma 
ideia de como e esse processo. 

No acesso a estes serv^os normal- 
mente se paga uma taxa, de acordo com 
o tempo de conexao e o tipo de infor- 
ma 9 ao que em parte e repassada para o 
fornecedor da informa 9 So. Estes siste- 
mas s5b organizados em bases comer- 
ciais. Existem muitos outros que nSo 
tem interesse comercial algum, organiza- 
dos por entusiastas da telematica que 
concebem e gerenciam seus sistemas 
com tanta seriedade que nSo se pode di- 
zer que o fa 9 am por hobby. 

No Brasil, sao exemplos a nivel de 
empresa a Embratel (CirandSfo), a Con- 
trol Data (Clube do Micro), e Telesp 
(Videotexto), com seus sistemas aber- 
tos. A Funda 9 ao Getulio Vargas e o 
IBGE (com otimos acervos) em breve es- 
tarao com seus sistemas operando. 

O ano de 1984 foi marcante para a 
telematica entre nos, pelo aparecimento 
de varios sistemas desenvolvidos por pes- 
soas nSo necessariamente da area de In- 



formatica e que s£o os pioneiros dos 
CBBS no Pais, entre eles, Paulo Sergio 
Pinto, Joao Roberto Amin, Antonio 
Prado, Henrique Pechman e Sylvain Ro- 
thstein. 

Estas pessoas sao pesquisadores e in- 
teressados no assunto que se sentem, 
como qualquer um de nos, excitados 
com a possibilidade de chamar outro 
computador, distante deles, e ver no 
display novas informa 9 oes e uma infi- 
nidade de utilidades disponiveis. Espiri- 
tos empreendedores, eles aceitaram o 
desafio de desenvolver seus sistemas ou 
adaptar sistemas comerciais (recriando- 
os na verdade), colocando-os a disposi- 
9 S 0 dos usuarios que rapidamente se 
multiplicand. Acreditamos que o pensa- 
mento destes precursors pode ser tra- 
duzido pelas palavras de Lary L. Meyers 
em seu livro How to Create Your Own 
Computer Bulletin Board , que diz: “Eu 
gosto da mecanica envolvida e que torna 
possivel tal fato (telecomunica 9 a:o por 
micro). Se voce parar para pensar so- 
bre todos os dados que devem ser trans- 
mitidos e recebidos, voce vai dar o devi- 
do respeito pela tecnologia envolvida. 
Foi este respeito, adicionado ao fator 
novidade, que me incentivaram a escre- 
ver meu proprio CBBS.” 

A ideia dos CBBS, nos Estados Uni- 
dos, iniciou-se com Randy Suess e Ward 
Christensen, considerados os pais dos 
pequenos sistemas de quadros de aviso. 
A ideia deles era criar um lugar de cha- 
mada para outros membros do clube, 
um local de usuarios de computador. Se- 
guiu-se a isso, a cria 9 ^o, por Graiq Vau- 
gham e Bill Blue, de sistemas voltados 
para a linha Apple (ABBS). Logo a se- 
guir apareceram nomes como o FORUM- 
80, ACCES-80 e GREEN MACHINE. 
Atraves destes boletins, sem ter que pe- 



gar a pessoa em casa, e possivel a troca 
de mensagens entre os usuarios. 

No Brasil, a ideia desenvolveu-se se- 
guindo este mesmo modelo. Temos al- 
guns sistemas operando com sucesso, en- 
tre eles o FORUM-80 do Rio de Janeiro 
(tel. (021) 287-8844) que ate novembro 
de 1984 contava com 250 usuarios ati- 
vos e com 4000 chamadas desde junho 
de 84 quando foi lan 9 ado. Como os de- 
mais CBBS nacionais, n£o tem interesse 
comercial. 0 FORUM-80 esta disponi- 
vel para acesso 24 horas por dia e, como 
os demais CBBS nacionais, n£o tem inte- 
resse comercial. A finalidade do sistema 
e promover o intercambio de informa- 
9 < 3 es tecnicas, mensagens comerciais, 
mensagens pessoais, bem como a troca 
de programas e arquivos de dominio pu- 
blico para usuarios registrados. 

CBBS :0 QUE SAO EO QUE 
OFERECEM 

CBBS ou Computer Bulletin Board 
System (sistema de quadro de avisos por 
computador) e o termo usado para des- 
crever um servi 90 em que pessoas distan- 
tes podem chamar um computador, 
usando a linha telefonica e um terminal 
de computador (ou micro), tendo acesso 
assim a varias fun 9 ( 5 es. Estas fun 9 oes vao 
desde simples mensagens ate complexos 
bancos de dados, usando a grande capa- 
cidade de arquivos de um minicomputa- 
dor. Pense num quadro de avisos comu- 
nitario, onde voce pode ler e colocar 
lembretes e avisos de objetos que quer 
vender/comprar, informa 9 oes e eventos. 
Some a isto a possibilidade de trocar 
mensagens pessoais com amigos e a de 
consultar bancos de dados variados, e 
tera a ideia basica de um CBBS. 

Estes bancos de dados v5o desde as 
simples listas de telefones, conjuntos 
de programas, ate os mais complexos, 
com informa 9 ( 5 es de interesse geral e 
ou acervo tecnico/artistico/cientifico 
restrito a areas especiTicas. 

A configura 9 §o basica para acessar 
um CBBS e simples. O equipamento 
principal voce certamente possui e com 
dois acessorios voce estara apto a conec- 
tar-se a qualquer CBBS. Vejamos: 

• microcomputador ou terminal 

• interface RS 232 

• modem 

• linha telefonica 

• software 

0 tipo de microcomputador ou ter- 
minal que voce vai utilizar fica inteira- 
mente por sua conta. Desde que o ma- 
nual garanta a coloca 9 <io da placa RS 
232 (se nSo possuir), voce nao tem que 
se preocupar com isso. Algumas maqui- 
nas nao usam internamente a mesma 
combina 9 ao de bits para processar uma 
letra. FeHzmente existem padroes stan- 
dard para transformar o sinal eletrico de 
qualquer computador na mesma letra ou 
carater digital, inteligivel por outra ma- 




Figura 1 



quina, sao o codigo ASCII e o RS 232. 
Nao se preocupe, por conseguinte, com 
as caracteristicas internas do seu equi- 
pamento. Voce podera usar tambem um 
terminal qualquer, desde que ele aceite 
uma interface RS 232. 

A RS 232 e uma norma standard 
para comunica 9 < 5 es seriais, definindo 
um m£todo amplamente aceito para in- 
terfacear equipamento terminal (micro) 
com equipamento de comunica 9 £o de 
dados. 

O cora 9 So da interface e a UART 
(Universal Asynchronus Receiver-Trans- 
miter). Este integrado MOS LSI (por 
exemplo TR 1602A,8255) contem a 
maioria do hardware necessario para re- 
ceber e transmits dados seriais. A UART 
obedece a uma resolu 9 So industrial que 
estabelece normas do equipamento para 
interfacear um sinal assincrono e a es- 
trutura paralela de um microprocessa- 
dor. A se 95 :o de transmiss^o da UART 
converte dados paralelos do micropro- 
cessador em informa 9 ( 5 es seriais que 
contem os dados juntamente com start 
bit, bit de paridade e stop bit. A se 9 <fo 
de recep 9 ^o converte uma informa 92 o 
serial tambem com start bit, dados, bit 
de paridade e stop bit em dados parale- 
los, e verifica a transmissfo. 

A opera 9 &o da UART pode ser pro- 
gramada; assim, o tamanho da informa- 
9&0 pode ter 5, 6 , 7 ou 8 bits. A pari- 
dade podera ser modificada (par, fmpar 
ou sem paridade), bem como o numero 
de stop bits (1 , 1.5 ou 2). 

0 modem e um equipamento para 
transmissffo de dados fornecidos em se- 
rie, que se conecta a linha telefonica. 
Uma vez que os dados saem do compu- 
tador em forma serial, e necessario que 
sejam convertidos em tons requeridos, 
para transmissao atraves da linha telefo- 
nica. Esta e a finalidade do modem (mo- 
dular-demodular). Quando um bit de da- 
dos e colocado no modem, ele e conver- 
tido em sinais sonoros usando uma de- 
terminada conven 9 ^o. 

Nos Estados Unidos usa-se a conven- 
98*0 Bell (homenagem a Graham Bell). 
Dentre estas podemos citar a Bell 103 
e Bell 212. Na Europa utiliza-se a con- 
ven 9 £o CCITT. Dentre as conven 95 es 
CCITT podemos citar a V.21, V.22, 
V.23 e V.24. Ja no Brasil, atraves de 
norma da Telebras, adotou-se o padrffo 
CCITT. Neste padrao encontramos, por 
exemplo, a norma V.24 que determina 



o sinal representado por 980 +- 6 Hz e o 
espa 90 por 1180 +- 6 Hz. Cada norma 
tem representa 9 #o diferente para fre- 
qiiencia e formas de modula 9 ^o. Toma- 
se evidente que Bell nao fala com CCITT. 

De uma maneira geral a velocidade da 
transmiss£o/recep 9 £o fica em 300, 1200 
ou 1200/75 bauds. Nos 300 e 1200 
bauds, a transmissao e recep 9 ao sa:o fei- 
tas a mesma velocidade. Nos 1200/75, a 
transmissao e feita em 75 e a recep 9 ao 
em 1200 bauds. 

O uso de um modem, ligado a linha 
telefonica, esta regulamentado e autori- 
zado pela portaria 081/81 que autoriza 
o uso da rede telefonica para transmis- 
s£o de dados. Qualquer duvida, entrar 
em contacto com o servi 90 comercial da 
Embratel, pelo telefone (021)221-1830. 




SEJA NOSSO 
COLABORADOR! 

r Escreva um bom artigo sobre: 

* Macetes de programagao 

* Dicas sobre seu equipamento 

* Sistema operacional, etc. 

E envie-o para nossa redapao. 
Os artigos aprovados serao 
remunerados e os outros, 
devolvidos. Mas nao se 
esquega de mandar seu nome 
completo, enderego e telefone. 

VENHA FAZER 
NOTiCIA CONOSCO! 

./Micro 

Sistemas 

Av. Presidente Wilson, 165/grupo 1210, 
Centro, Rio de Janeiro — RJ — 

CEP 20030 Tel.: (021) 262-5259 

R. Oliveira Dias, 153, Jardim Paulista, 

SSo Paulo, SP CEP 01433 - Tels.: (01 1 ) 
853-7758. 881-5668, 853-3800 
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CBBS, UM QUADRO DE AVISOS COMUNITARIO 



O que voce tambem necessitara, para 
entrar em contato com um CBBS, 6 de 
uma linha telefonica. A ligagao do mo- 
dem a linha e simples e feita em parale- 
lo, bastando ligar os dois fios nos seus 
terminals. 

O software que voce tera que dispor, 
para poder usar os serv^os, pode ser de 
dois tipos, basicamente. 

O primeiro e bastante simples e Simu- 
la um terminal teletipo ou simulador 
TTY ou emulador TTY. E o chamado 
terminal burro podendo ser poucas li- 
nhas de programa em BASIC (ate 300 
bauds) ou em Assembler, para nao per- 
der caracteres, se a transmissffo for em 
1200 bauds. Este software coloca na 
sua tela cada carater recebido pela RS 
232, e transmite para a RS 232 cada ca- 
rater digitado no seu teclado. 

O segundo tipo, alem das fun^oes 
acima, oferece outros recursos, sendo 
chamado terminal inteligente . Podemos 
citar, dentre as fun^oes, as de transmitir 
e receber arquivo, gravar em disco, per- 
mitir simultaneamente display e impres- 
sora, e funcionar em half duplex ou full 
duplex. 

Em half duplex, os caracteres envia- 
dos para a RS 232 vao para o seu video 
(com eco). Em full duplex, os caracteres 
digitados sSo enviados para a RS 232 e 
nao para o video (sem eco). Neste caso, 
o host providencia o eco para que voce 
possa visualizar o que foi enviado. 

As outras fringes dependent das ca- 
racteristicas de cada equipamento. 

A primeira vista, organizar um CBBS 
parece ser muito dificil e dispendioso. 
Se voce e empreendedor, tern bom co- 
nhecimento de BASIC e Assembler e al- 
gum capital, saiba que nSo e t£o dificil 
assim tomar-se um Sysop (System Ope- 
rator). 

O equipamento e basicamente o mes- 
mo. 0 modem devera ser mais sofistica- 
do (auto answer) para responder auto- 
maticamente ao chamado do usuario. 
Existem livros especializados que fome- 
cem todos os detalhes e macetes, inclu- 
sive com listagem dos programas. Voce 
podera obter sistemas prontos (manual e 
disco com programa) nos fornecedores 
estrangeiros. 

Acreditamos no surgimento, muito 
em breve, de novos CBBS, na medida 
em que o interesse dos usuarios for au- 
mentando. 

PORTELEFONE 

A melhor forma de voce ficar conhe- 
cendo os CBBS e acessando-os. Conec- 
te-se e verifique as modalidades de ser- 
ves, o mais solicitado e o quadro de 
avisos. 0 Cirandafo ja oferece um servi 90 
exclusivo para a area medica e muitas 
outras op^Qes. 



Alem da utilidade e dos serv^os, des- 
tacamos o aspecto social, pois os usua- 
rios de CBBS acabam tomando-se ami- 
gos, sendo muito solidarios entre si, pro- 
curando resolver problemas tecnicos e 
particulares, promovendo eventuais en- 
contros para confraternizagSo e debate 
de assuntos de interesse mutuo. 

Fa 9 a um acesso a qualquer dos CBBS 
abaixo via telefone. No Brasil temos: 

• CBBS DO AMIN 

telefone: (021) 246-2938 
de segunda a sexta, das 20 as 24 horas 
sabado e domingo das 14 ^s 24 horas 
atendimento Bell, 300 bauds, 8/1 /N 

• CBBS DO PINTO 

telefone: (021) 227-9211 
segundas, quartas e sextas, das 20 as 
24 horas 

atendimento Bell, 300 bauds, 8/1/N 
telefone: (021) 247-8440 
de segunda a sexta, das 20 as 24 horas 
sabado e domingo, das 14 as 24 horas 
atendimento CCITT, 300 bauds, 8/1/N 

• CBBS DO PRADO 

telefone: (01 1)813-2616 
ter 9 a e quinta, das 20 as 24 horas 
atendimento CCITT, 300 bauds, 8/1/N 
quarta das 20 as 24 horas 
atendimento Bell, 300 bauds, 8/1/N 

• CLUBE DO MICRO 

Rio de Janeiro: (021) 266-3939 
Sao Paulo: (01 1) 255-0300 
Belo Horizonte: (031) 337-7767 
dias uteis, das 20 as 24 horas, sabados 
de 8 as 24 horas 

atendimento CCITT, 300 bauds, 7/1/E 

• CIRANDAO 

Rio de Janeiro: (021) 233-2000 
Belo Horizonte: (031) 227-3300 
Curitiba: (041) 233-3855 
Brasilia: (061) 225-0300 
Porto Alegre : (05 1 2) 2 1 -0222 
diariamente de 07 a 01 hora do dia 
seguinte 

atendimento CCITT, 300 bauds, 7/1/E 
Rio de Janeiro: (021) 253-4000 
Belo Horizonte: (031) 227-3200 
Curitiba: (041) 233-3796 
Brasilia: (061) 226-1200 
Porto Alegre: (05 12) 27-1200 
diariamente de 07 a 01 hora do dia 
seguinte 

atendimento CCITT, 1200/75 bauds, 
7/1/E 

• FORUM-80 DO RIO DE JANEIRO 

telefone: (021) 287-8844 
diariamente horario integral 
atendimento CCITT, 300 bauds, 8/1/N 

Nos Estados Unidos, temos: 

• FORUM-80# 1 
Kansas City, Missouri 



telefone: (8 16) 861-7040 
atendimento Bell, 300 bauds, 8/1/N 

• CBBS#1 
Chicago, Illinois 
telefone: (3 12) 545-3086 
atendimento Bell, 300 bauds, 8/1/N 

• CONNECTION-80#1 
Centereach, New York 
telefone: (5 16) 588-5836 
atendimento Bell, 300 bauds, 7/1 /E 

E na Europa: 

• CBBS NORTH-EAST 
Inglaterra 

telefone: (44) 02707-43555 

das 2.30 PM as 09 AM (hora local) 

atendimento CCITT, 300 bauds 

• MAILBOX-80 
Inglaterra 

telefone: (44) 051428-8924 
das 09 AM as 1 1 PM (hora local) 
atendimento CCITT, 300 bauds, 8/1/N 

• FORUM-80 

Inglaterra 

telefone: (44) 0908-566660 
das 7 AM as 10 PM (hora local) 
atendimento CCITT, 300 bauds 

• FORUM-80 
Holanda 

telefone : (21) 01-31 3-5 125 33 
tcr 9 a a sabado de 06 PM as 07 AM 
(hora local) 

sabado 06 PM ate ter 9 a as 07 AM 
(hora local) 

atendimento CCITT, 300 bauds 

• ABC-80 

Sui'9a 

telefone : (046) 0 1 0-468- 1 905 22 
atendimento CCITT, 300 bauds 

• SOFTWARE TOOLS RCP/M 

. Sydney, Australia 

telefone : (061) 2-997-1018 
aiendimento CCITT, 300 bauds 

As informa 9 oes acima (telefone e ho- 
rario) foram compiladas na primeira 
quinzena de dezembro de 1984. Como 
os sistemas sao muito dinamicos, algu- 
mas altera95es podem ter ocorrido, des- 
de entS'o. 

Agora, conecte-sc c tire suas proprias 
conclusoes. Garanto que voce vai gostar. 

■ 

m 

Ricardo Weiss Muricy 6 contador, estudioso 
de Informatics e programa$ao, sendo usuario 
de CBBS. Ja colaborou nesta revista com os 
artigos "UM SHELL SORT PARA REGIS- 
TROS DE VAR I OS CAMPOS" (MS set. 82) e 
"MEU APRENDIZADO DE BASIC" (jul. 82) 
tendo colaborado tambem em outros vefculos 
sobre legislagao fiscal e tematica contabil. 
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MICROMAQ 



PROGRAMAS PARA CP-400 
COLOR 64 - TRS-80 COLOR COMPUTER 

A MICROMAQ o mais tradicional revendedor de software para a linha TRS-80 
COLOR COMPUTER no Brasil, em conjunto com a MICRO SISTEMAS coloca 
& disposigSo dos usu&rios o maior catelogo de programas para esta linha. 



J0G0S EM AQA0 EM LINGUAGEM DE MAQUINA 

101 Cuber: (32K) ajude o cuber a enlrentar os inimigos enquanto a pirAmide muda de cor. 20.000 

102 Trapfall: (16K) sSo muitas as armadilhas (Pitfalls) e os perigos que voc6 enfrenta na 

caca ao tesouro. 20.000 

103 Jr. Reverenge: (32K) Climb enfrentaobsticulos e criaturas para salvar seu pai do terrl- 

vel Luigi. 20.000 

104 8 - Ball: (16K) para os amantes do jogo de bilhar. 20.000 

105 TCnis: (32K) para os amantes do jogo de tSnis. 20.000 

106 Cyrus (Xadrez): (32K) para os amantes do jogo de xadrez. 20.000 

107 Sea Dragon: (32K) emogSo e suspense sob as Sguas. 20.000 

108 Tubar§o: (16K) um jogo para quern tern nervos de ago. 20.000 

109 Vegas: (32K) sinta-se num cassino-caga-nlquel, cartas, loto, dados e 21. 20.000 

110 Pic nic: (32K) ajude a formiga a estocar alimentos. 20.000 

111 Moon Shutle: (32K) enf rente todos os obsteculos (meteoritos, bombas, etc) para des- 

truir o prfncipe das trevas. 20.000 

112 Zaxxon: (32K) enfrente canhdes, misseis, avides, barreiras de forga e destrua o robo 

Zaxxon. 20.000 

113 Pooyan: (32K) defenda o seu vale da invasSo dos lobos. 20.000 

114 Froog: (32K) ajude o sapo a atravessar a rua e o rio. 20.000 

115 JeM: (16K) viva as emogOes do filme Retorno de Jedi. 20.000 

116 Andrbide: (32K) elimine os andrbides e saia do labirinto. 20.000 

117 Astro-Blast: (32K) batalha espaclal. 

118 Wssaros: (16K) elimine os passaros invasores. 

119 Buzzard Bait: (32K) ataque os passaros com sua langa. 20.000 

120 Candy Co: (32K) coma doces e vitaminas para eliminar os inimigos. 20.000 

121 Cashman: (32K) pegue o dinheiro e elimine os gatos (99 telas). 20.000 

122 Clowns: (32K) fure os baldes saltando na cama eiastica. 20.000 

123 Cosmic: (16K) futebol americano com naves espaciais. 20.000 

124 Cpede: (16K) mate a centop6ia e a aranha. 20.000 

125 Demon Seed: (32K) destrua passaros, sementes e a nave. 20.000 

126 The King: (32K) salve a princesa raptada pelo King Kong. 20.000 

127 Firecopt: (32K) apague incendios e elimine incendi^rios. 20.000 

128 Doodle Bug: (32K)estiloPacman. 20.000 

129 Fury: (32K) batalha a6rea. 20.000 

130 Gallax Attack: (16K) batalha espacial. 20.000 

131 Gllaxxons: (16K) batalha espacial. 20.000 

132 Gobbler: (16K) tipo Pacman. 20.000 

133 Grabbler: (32K) defenda-se dos inimigos em um duplo labirinto. 20.000 

134 Grand Prix: (32K) corrida de carro. 20.000 

135 Kron: (32K) 4 jogos diferentes em um. 20.000 

136 Lunar: (32K) venga os obstolos durante um passeio de Jeep na lua. 20.000 

137 Mudpies: (32K) atire tortas e defenda se dos cozinheiros. 20.000 

138 Pedro: (32K) defenda ojardim dos animais. 20.000 

139 Pinball: (32K). 20.000 

140 Polaris: (32K) defenda os submarinos do ataque a6reo. 20.000 

141 Draconia: (32K) salve os prisioneiros do espago e fuja do dragSo. 20.000 

142 Bag-Man: (32K) roube o ouro e fuja dos mineiros. 20.000 

143 Tut's Tomb: (32K) enfrente os perigos de uma caverna em busca do tesouro, 20.000 

144 Willy's (32K) transporte os numeros de um lado para oulro sem ser derrubado pelos 

inimigos. 20.000 

145 World's of Flight: (32K) simulador de v6a 20.000 

146 Mega Bug: (16K) fuja das baratas em um labirinto. 20.000 

147 Bandits: (32K) procure tesouros em tr£s terras (fantasia, futuro e oeste) e enfrente os 

bandidos. 20.000 

JOGOS DE AVENTURA COM ALTA RESOLUQAO GRAFICA 

201 Calixto: (32K) ajude o arqueblogo (prof, lagarto) a recuperar o tesouro • em ingles 25.000 

202 Sea-Quest: (32K) recupere o tesouro perdido • em ingles. 25.000 

203 Shennan: (32K) encontre o tesouro no fim do arco iris - em ingtes. 25.000 

204 Sanctum: (32K) exorcise o demOnio - em inglOs. 25.000 

JOGOS EDUCATIVOS 

304 Figuras M^gicas: (16K) associagdo de f iguras e cores de seis maneiras diferentes. Para 

criangas de 3 a 6 anos - Manual em ingles 40.000 

305 Letras M^gicas: (16K) ajude o bicho pap§o a comer as letras certas. Para criangas de 

3 a 6 anos • manual em ingles. 40.000 

306 Numeros M^gicos: (16K) ajude o Grover Rover a brincar com os numeros. Para crian- 

cas de 3 a 6 anos • manual em ingles. 40.000 

307 Correio EletrOnico: (16K) aiude o Big Bird a entregar as correspondences nos luga- 

res certos. Para criangas ae 3 a 6 anos - manual em ingles. 40.000 

308 Caga £s Estrelas: (16K) jogo estrategico. Voce tern que pegar as estrelas no c6u. Para 

criangas com mais de 7 anos • Manual em ingles 40.000 



APUCATIVOS COMERCIAIS 

401 WRITTER II: (32K) editor de texto com as seguintes caracteristicas: linha de at6 240 

caracteres na impressorae51 colunas na tela. Capacidade para imprimir caracteres 
portugueses ou simbolos especiais (ate 10). Paginagio autom^tica. Centralizagao au- 
tomatics. Manual em Ingles com 90 paginas, 120.000 

402 Elite-Calc: (16K) plartllha eletronica com as seguintes caracteristicas: at6 255 linhas 

e colunas. Manipula textos, numeros, operadores matematicos, fungoes trigonom6- 
tricas e fungfles estatisticas (maximo, minimo, m6dia). Emile graficos e permite or- 
denar colunas e linhas. Manual em inglSs e portugues • 20 p. 80.000 

403 Color File: (16K) banco de dados que permite manipular 7 arquivos prd-def inidos (en- 
deregos, despesas, investimentos...). Voce tamb6m pode del inir os seus proprios ar- 
quivos com campos alfabatlcos ou num6ricos. Manual em ingles com 10 paginas. 60.000 



LINGUAGENS 

501 Edtasm: (16K) Linguagem Assembler para o 6809 - Ml, 

502 Forth: (16K) Linguagem Forth para o 6809. Ml. 

503 Logo: (32K) Linguagem educativa logo • Ml. 



UTILITARIOS 

601 Color Kit: (32K) utilitario em Assembler que complementa o Color Basic com mais de 
30 fungpes para facili tar a programagao em Basic ou linguagem de maquina. Manual 

em ingles com 30 paginas. 80.000 

602 Stripper. (16K) utilitario que permite compactar programas em Basic eliminando bran- 

cos, comentarios e concatenando linhas. 40.000 

603 Tiny Compiler: (16K) utilitario que permite compilar a maioria dos comandos Basic e 

extended Basic. Manual em ingles. 80.000 

604 Super Screen: (16K) aumenta o tamanho da tela. 0 Color passa a trabalhar com 57 co- 
lunas e 24 linhas. 40.000 

605 Disassembler: (16K) disassemblador de programas em linguagem de maquina. 40.000 

606 Hambug: (16K) permite analisar byte a byte qualquer programa Basic ou em lingua- 
gem de maquina. Manual em inglPs. 50.000 



SOFTWARE DECOMUNICAQAO 

711 Color Terminal: (16K) software de comunicagao para o projeto Cirandao, Aruanda e Ban- 
cos de Dados Particulares. Transmite e recebe arquivos em Basic ou linguagem de ma- 
quina. BAUD RATE de 1 10 a 9600 em DUPLEX/H ALF/FUUECHO. Tamanho da palavra 
7 ou 8 bits, Paridade par, impar ou nenhuma. Stop Bits de 1 a 9. Manual em inglGs com 
30 paginas. 120.000 



148 Poltergeinst 

149 Double Back 

150 Storm Arrows 

151 Time Figther 

152 Super Pac II 

153 Speed Race 

154 Fly Tige r 

155 Ice Hockey 

156 Out House 

157 Packmaze 

158 Pac-Tac 

159 Robotron 

160 Tempest 

161 Protetor 

162 Venturer 

163 Defense 

164 Quicx 

165 Smurf 

205 Star Trader 

206 Midle Kindgton 



SIM. Desejo receber os seguintes programas pelo(s) qu^l(is) 
pagarei a quantia de Cr$ 



NOME: 



CIDADE: . 



Para tal, estou enviando um cheque nominal k ATI Editora Ltda., Av. Presidente Wilson, 165 
Grupo 1210 - Centro, CEP 20.030 - Rio de Janeiro - RJ. • Despesas de Correio inclufdas 



TABELA 

desconto 

ate 50.000,00 - sem desconto 
de 51.000,00 a 100.000,00- 5% 
de 101.000,00 a 150.000,00 - 10% 
de 151.000,00 a 200.000,00 - 15% 
Acima de 200.000,00 - 20% 



MICROMAQ - Rua Sete de Setembro, 92 - Lj. 106 - Tel.: (021) 222-6088. 





Linha SINCLAIR 



DEFM no Sinclair 

A dica abaixo e muito util para programadores que 
utilizam o Assembler. Ela Simula a instn^ao DEFM 
(deflnigffo de mensagem) dos editores de cddigo de 
mdquina. 

9000 PRINt "ENDERECO ?" 

9005 INPUT E 

9010 PRINT "MENSAGEM ?" 

9015 INPUT M<& 

9020 LET X-PEEK 16398 

9025 LET Y=PEEK 16399 

9030 POKE 16398 r E-256*INT (E/256) 

9035 POKE 16399 y I NT ( E/256 ) 

9040 PRINT MS 

9045 POKE 16398 y X 

9050 POKE 16399 r Y 

9055 PRINT "MENSAGEM DEFINIDA-" 

As linhas 9030 e 9035 mudam a posi^o PRINT 
do arquivo de imagem para uma drea qualquer, desig- 
nada pela varidvel de endere9amento E, tornando o 
PRINT uma instru9do POKE muito mais eficiente. 



Frederico dos Santos Liporace - RJ 



Linha CP/M 







Envie suas dicas para a Redagao de MICRO 
SISTEMAS, na A v. Presidente Wilson, 1 65 — 
grupo 1210, Centro Rio de Janeiro, RJ. 

CEP 20030. 



Linha SINCLAIR 



A tire em movimento 



16666 

16674 

16682 

16690 

16698 

16706 



2A 

57 

2B 

80 

FE 

00 



84 

28 

23 

36 

CB 

00 



E5 

CB 

FE 

12 

C2 

00 



01 

67 

76 

22 

7C 

00 



DB 

20 

28 

84 

41 

00 



CB 

2B 

3E 

DB 

06 



Existe uma certa 
dificuldade no 
controle do micro 
pelo teclado du- 
rante a execu9do 
de um programa, 

principalmente quando este e em Assembler e ha necessi- 
dade de se pressionar varias teclas simultaneamente: foi 
exatamente isto o que observei ao rodar o programa La- 
ser Base: o tiro do canhSo (MS n9 28, pag. 62), pois o ca- 
nhao ndo reagia ao comando do teclado quando duas (ou 
mais) teclas eram acionadas. Por isso, tomei a liberdade 
de reescrever parte da sub-rotina que controla o canhdo 
do Laser Base. 

Esta sub-rotina, que permite o disparo do canhdo em 
movimento, deve ser colocada a partir do endere90 1 6666. 
E, como ela economiza oito bytes, foi inserido um des- 
vio no endere90 16704 para ignorar, desta forma, os by- 
tes ndo utilizados. 



Gilson Roberto Viana - PR 



Linha TRS-80 



Ligagao PTO a PTO 

Esse pequeno programa tra9a uma linha entre dois 
ponto dados. 

100 INPUT"ENTRE COORDENADAS X r Y DO PRIMEIRO P0NT0"?X,Y 
110 INPUT"ENTRE COORDENADAS X,Y DO SEGUNDO P0NT0"?X1 , Yi 
120 CLSs IF ABS(Xi-X) <ABS( Y1-Y)THEN 160 
130 FOR X2=X TO XI STEP 2#(Xi(X)+i 
140 SET (X2, (X2-X)#(Yi-Y)/(Xi-X)+Y+.5> 

150 NEXTsEND 

160 FOR Y2=Y TO Yi STEP 2*(YKY> + 1 
170 SET( .5+(Y2-Y)*(Xi-X>/(Yi-Y>+X,Y2> 

180 NEXT: END 



Fernando Osvaldo Oliveira Jr. - SC 




“ 



Claudio Costa - RJ 



Linha 



Datilografia 
no micro 

Essa rotina trans- 
forma seu micro numa 
poderosa mdquina de 
escrever. Para digitd- 
la crie uma linha REM 
com 40 caracteres e 
para usd-la basta o 
RANDUSR 16514. 

ATENQAO: O break 
pode ser usado como 
espa9o normalmente e 
para retomar ao BA- 
SIC, pressione SHIFT 
+ BREAK. 



Linha APPLE 



1.6514 


205 


16515 


1.87 


16516 


2 


16517 


68 


16518 


77 


16519 


121 


.1.6520 


254 


16521 


255 


16522 


62 


16523 


0 


1.6524 


40 


16525 


244 


1.6526 


205 


16527 


1.89 


16528 


7 


16529 


126 


16530 

16531 


205 

8 


16532 


8 


16533 


254 


16534 


12 


1.6535 


200 


16536 


6 


16537 


1 


16538 


17 


16539 


255 


1.6540 


255 


16541 


33 


16542 


50 


16543 


55 


16544 


25 


16545 


56 


16546 


253 


16547 


16 


16548 


248 


16549 


24 


16550 


219 


16551 


248 


16552 


24 


16553 


216 



Brincando com o video / 

Eis algumas interessantes sugestOes de 
efeitos para o seu Apple. 

Apague o video da esquerda para a direita: 



10 FOR A=1 TO 40 SPOKE 33,A:H0ME:F0 
R B = i TO 30 : NEXT B , A 

Da direita para a esquerda: 

10 FOR A=39 TO 0 STEP~1:P0KE 32, A: 
POKE 33 ,40 -A: HOME: FOR B = i TO 30:NE 
XT B , A 

Do centro para os lados: 

10 FOR A=i TO 20 : POKE 32,20-A:POKE 
33 , 2#A s HOME s FOR B = i TO 30:NEXT B, 

A 



POKE no lugar de SET 

Para descobrir o endere90 POKE de uma 
instru9ao SET (X,Y), use esta pequena f6r- 
mula: 

1000 T=FIX< Y/3) *64 +F IX ( X/2) 4-15360 

onde T = endere90, no video, das coorde- 
nadas X, Y. 

Fernando Osvaldo Oliveira Jr. - SC 



Faixas aleatorias 



De baixo para cima: 




Deixe seu micro criar faixas aleatorias 
com esse pequeno programa Applesoft. 

10 REM FAIXAS ALEATORIAS 

20 REM ARMANDO OSCAR CAVANHA FILHO 

30 H0R2:A=n0:S=l*X=3:K=2#RND<l> :L= 

3: J=K/2 
80 X=X+S 

90 IF A< 8 OR A >152 THEN K = ~K 
100 HC0L0R=L:HPL0T X r A TO X,A+iO 
110 HC0L0R=L+1 :HPLOT X,A+10 TO X r A 
+20 

120 HC0L0R»L+2 * HPl.OT X,A+20 TO X,A 
+30 

150 IF X< 3 OR X >275 THEN GOSUB 400 
170 A=A*-S*»K#STN< J#X/50> sGOTO 00 
400 1=1+1 *S=<-i ) I:K=3*RND<1):J=RN 
D<1)*K 

410 L=INT< 3xRND< t ) + l > * IF INT(I/7> = 

1/7 THEN 500 
420 RETURN 

500 TEXT sHGR2:RE TURN 



10 FOR A=24 TO 1 STEP-i : VTAB AsHTA 
B 1 :CALL-868:F0R 8=1 TO 30:NEXT B, 



De cima para baixo: 

10 FOR A=i TO 24: VTAB AsHTAB IsCAL 
L-868 s FOR B = i TO 30:NEXT B , A 

De cima para baixo com risco horizontal: 



10 INVERSE s FOR A=1 TO 24:VTAB A : HT 
AB 1 : INVERSE : PRINT SPC(40):VTAB A: 
HTAB i : NORMAL : PR INT SPC(40):NEXT A 
:H0ME 



Jos6 Amim Cury Nasser - DF 



Brincando com o video // 

Experimente estes efeitos sofisticados 
em seu micro da linha Apple. 

Apagando a tela em espiral: 



5 A=1 : C=23 

10 INVERSE: HTAB 1:V1AB A : PR INT SPC 
(40) : NORMAL 

20 FOR 1=A TO 22SVTAD I :HTAB 40-A: 
1 NVLRSE SPRINT" " i NORMAL : NEXT 
30 INVERSE: HTAB 1 : VTAU C: PR INT SPC 
(40) : NORMAL 

40 FOR I--A TO 22: VTAB Is HTAB A=INV 
ERSE SPRINT" " : NORMAL : NEXT 
50 A=A + i s C=C-i s IF A( 15 THEN GOTO 1 
0 



Quadriculando a tela (Preto e Branco): 



10 INVERSE: FOR A=24 TO 1 STEP-i :VT 
AB A 

20 FOR B=A-INT( A/2)x2+l TO 40 STEP 
2 : HT AB B SPRINT" ";:NEXT 0 , A 
30 NORMAL 



Quadricule a tela (vdrias cores): 



10 HGR SPOKE 49234,0 :HC0L0R=3:F0R A 
=0 TO 191 STEP 4 
20 HPLOT 0 , A TO 279, A: NEXT A 
30 FOR B=i 10 137 STEP 8:HPL0T B,1 
10 0,191 :HPL0T 279--A,! TO 279-A,l 
91: NEXT B 

Apague a tela com efeito estrela: 



5 B=20 

10 B=B-i : VTAB B : HTAB 1 : CALL-868 : IF 
B=5 VHEN GOTO 45 
20 C=C-» 1 : VTAB C = HTAB 1: CALL-868 
30 A=A+1 :P0KE 32, 20 -A: POKE 33,2#A: 
GOTO 10 
45 REM 

Apague a tela com INVERSE: 



10 B=l:C=l 

20 FOR I=24#A+B TO 24»»B+A STEP C:I 
F B=i THEN INVERSE 
30 HTAB 1 s VTAB IsPRINT SPC(40):NOR 
MAL : NEXT I: IF A=i THEN GOTO 50 
40 A=1 :C=-1 :B =0:60 TO 20 
50 REM 



Jos6 Amim Cury Nasser - DF 



Manoel Silva Rodrigues - RJ. 



OPCAO PARA 0 TK2000: 160 SOUND A,L 

Armando Oscar Cavanha Filho - RJ 









O Constellation e uma boa 



0 micro Constellation, fabrica- 
do em Hong Kong pela Novag 
Industries Ltda., esconde em 
sua aparencia simples uma habilidade 
para o xadrez que chega a surpreender. O 
conjunto de abertura que vem em sua 
bagagem mnemonica e de excelente qua- 
lidade. A busca de uma fraqueza em seu 
jogo exige bastante paciencia. 

Seu forte e a abordagem tatica das 
posiyOes com as quais se defronta. O 
jogo na fase final pareceu-me, contudo, 
inferior ao do Elite A/S B. Mas levando- 
se em consideraySte seu preyo — metade 
do concorrente, o Elite — e ainda uma 
boa compra. 

OBS - Por motivo de doenya em fa- 
milia suspendi a elaboray^o desta colu- 
na, que muito me agrada produzir. Que- 
ro agradecer as manifestayOes de interes- 
se e pedidos de continuidade de amigos 
e leitores. 



CONSTELLATION X NN 
NlVEL 4 -RIO, 18, XI, 1984 



1-P4R P4R; 2-C3BR C3BD;3-B5C 
CR-2R; 4-0-0 P3TD; 5-BxC CxB; 
6-P4D P3D; 7-P5D (?) C1C; 8-C3B 
B5C; 9-B3R C2D; 10-P3TR B4T; 11- 
T1R B2R; 12-P3CD (?) P4CR; 13- 
P 4 CR B3C; 14-D2D P4TR; 15-CxPC 
PxP; 16-PxP C3B; 17-P3B (?) com 17- 
D2R as brancas evitariam a combinay£o 
que as pretas planejam para romper as 
defesas do rei branco. 17-...D2D; 18- 
T1BR (?) impunha-se jogar 18-D2C 
para defender a casa 4CR seguido do rei 
a 2B para poder mobilizar as duas tor- 
res. 18-... 0-0-0 as pretas completam a 
mobilizaySte de suas pe 9 as sem que as 
brancas percebam as intenyoes do adver- 
saries 19-TD1C as brancas desperdi- 
9 am a ultima oportunidade de organizar 
uma defesa razoavel. 19-...T5T!; 20- 
B2B. 




O cenario esta pronto para uma de- 
monstrate de for 9 a das pretas. 

20-...TxP+!!; 21-PxT se recusar a 
captura, as pretas continuam com 21 -... 
TxC! se 22 -DxC CxPR! com multiplas 
amea 9 as indefensaveis. 21-...DxP+; 22 
B3C (for 9 ado) DxB+;23-D2C D 6 C+; 
24-T2B DxC; 25-P4C o Constellation 
esta aturdido e impotente. 25-. ..TIC 
abre mais uma coluna sobre o monarca 
branco. 26-T1-1B BxP!;27-CxBTxD+; 
28-TxT CxC; 29-TxP R2D; 30-T2- 
7C D 8 R+; 31-R2T D5T+; 32-R2C 
P4C; 33-TxB+ DxT; 34-TxD RxT; 
35-R3B C 6 B e a partida foi declarada 
perdida para as brancas. 

CONSTELLATION X NN 
NIVEL 3- 17, XI, 84 

1 -P4R P4R; 2-C3BR C3BD;3-B4B 
B4B; 4-P3B D2R; 5-P4D PxP; 6-0-0 
PxP; 7-CxP C4R (?) 




PosiySte depois de 7-CxP C4R (?). A 
pressa em trocar peyas-leva as pretas a 
ficarem em posiySte inferior. 

8-C5D! D3D. Se 8 ~...CxC+; 9-DxC 
amea 9 ando depois de 9-. ..DID; 10- 



C 6 C! ou 10-...D3D B4B! 9-...D3D;10- 
CxC DxC; 11-B4B! ganhando material. 

CONSTELLATION X ELITE /AS 
NIVEL 2- RIO, X, 1984 
DEFESA “CARO -K ANN” 

1-P4R P3BD; 2-P4D P4D; 3-P5R 
B4B; 4-P4BR D4T+; 5-P3B BxC; 6 - 
TxB DxPT e as brancas capturam um 
peao. 7-B3R P3R; 8-B3D C3TR; 9- 
C2R B2R; 10-C1B D4T; 11-0-0-0-0; 
12-B2BD C4B; 13-B2B C1-2D; 14- 
P4CR C5T; 15-D3D conseqiiente com 
a 13? jogada. 15-...C3CR; 16-P5B 
C5B; 17-D3B P4CR; 18-C3D CxC; 
19-BxC P3TR; 20-P6B BID; 21-D3T 
P4T; 22-DxP CxPB apenas retarda o 
desfecho da partida sem contudo modi- 
fied -lo. 23-PxC T1R; 24-D7T+ RIB; 
25-D8T, mate. 



LIPNICKY X SCHULZ 
BERLIM, 1945 




As pretas jogam e empatam. 



SOLUQAO: 

a x ± d x H o +d x d a x « a i+dd x a*'V 

as 

Enxadrista experiente, Luciano Nilo de An- 
drade jd escreveu para os jornais "Correio da 
ManhS ", " Data News" e " Ultima Hora" e pa- 
ra a revista "Fatos & Fotos". Luciano 6 econo- 
mista, trabalhando no Minist6rio da Fazenda , 
no Rio de Janeiro. As o pin ides e comentdrios 
de Luciano Nilo de Andrade, bem como as 
ultimas novidades do Xadrez jogado por com- 
putadores, estarSo sempre presen tes em 
MICRO SISTEMAS. 
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MICRO SISTEMAS. abril/85 



niMMEV 



SOFTWARE - CP/M 



• Administragao Imbveis/ 
Condomfnios 

• Controle Administrative/ 
Financeiro p/Clubes, Escolas, 
Corretoras Seguros 

• Controle Operacional Hot6is 

• Corregao MonetSria balango 

• Faturamento Servigos Medicos 
(Convenios) 

• Formulagao/Cdlculo de Ragoes 

• Gerenciamento Rebanhos Gado 
Leiteiro e Gado de Corte 



Praia de Botafogo n9 210 - C-01 
CEP 22250 - Botafogo - RJ 
Tel. PBX 1021) 551-6699 



COMPUTADORES 
E PERIFERICOS 

UNITRON 

MICROCRAFT 

VENDAS 

LEASING 

PROGRAMAS 

CURSOS 

ASSISTENCIA 

TECNICA 



ASSISTENCIA 

TECNICA 

AUTORIZADA 




Microcomputadores 
IBM PC, APPLE, TRS-80 
Nacionais compativeis 
Drives, Impressoras 
Consulte-nos sobre 
Contratos de manutengfio 



PARA 

PR0BLEMAS 

TECNIC0S 

USE 

ACABEQA 





PARA PROBLEMAS COM MATERIAL DE 

DESENHO • PINTURA • ENG£NHARIA 
PAPELARIA - ESCRITORIO • MAQUINAS PI 
ESCRITdRIO E SUPRIMENTOS EM GERAL 

££k O BEL BAZAR 

, MV eletrQnico 

ondo voeft AINDA encontra preco 
e qualldade de ANTIQAMENTEI 

AV. ALMIRANTE BARROSO, 81 • U ,, C’' 
TEL:. 262-9229 - 262-908 8 • 240-8410 - 221-8282 
RIO DE JANEIRO -CASTEU0 



ALBAMAR 

ELE TRONIC A LTDA. 



FITAS CASSETES 
TAMANHOS 

C5 CIO Cl 5 C20 
C30 e outros 



•FITAS 

MAGNETICAS 

1 200 e 2400 pes 

• DISKETTES 

5 1/4 e 8" 



Rua Conde de Leopoldina, 
270-A S3o Cristovao — R.J. 
Tels.: (021) 580-6729 
580-8276 



Dado'S 



b«*co M <M&% 

publicacQes tEcmicas 

Disponivcis em portugues 

1 - Curso de dBase II 

2 - flpllcativos dBase II 

3 - Relatorios dBase II 

4 - Curso de dBase III 

5 - Curso de Lotus 1 -2-3 

6 - flplicat. Lotus 1-2-3 

7 - Curso de Symphony 

8 - Curso de framework 

9 - Curso de DOS (PC) 

1 0 - Curso de Unix 

1 1 - Curso de llnguogem C 

1 2 - Curso de UUordstar 



VENDRS DISPONIVCIS PR RR 
TODO BRASH 

Rl. Santos. 336 - Cj. 42 
CEP01418 - SP 
T€L:‘ (01 1)285-0132 



CURSOS.. 

HARDWARE ..SOFTWARE „ 

CORRESPONDENCE ou PESS0ALMENTE C/AULAS PRATICAS 



ELETRONICA DIGITAL I e II 

► Prttica em KITs + apostila encadernada. 
MICR0PR0CESSAD0RES 

Z80 8085 8080 8086 8088 6502 

► Pr3tica nos KITs ZHardware e Banana 85 + 
apostila encadernada. 

MANUTENQAO DE 
MICROCOMPUTADORES 

TRS80 CP500 DGT100 NAJA - SYS DATA 

► Pfeitica de manuten^o com sofisticados 
equipamentos + apostila encadernada f 
esquema de todos os computadores. 
MANUTENgAO DE PERIFERICOS 
DRIVES - IMPRESSORAS - M0NIT0RES - 
INTERFACES 

► Pritica de manutenqao com sofisticados 
aparelhos + apostila encadernada + 
esquemas dos Perif6ricos. 



• INTR0DUQA0 ^ COMPUTAgAO 

► Prttica de manuseio e verificag§o das partes do 
computador e suas unidades + apostila 
encadernada. 

BASIC BASIC0 e AVANQAD0 

•* PrStica de programapSo nos computadores da 
"Hardware" + apostila encadernada. 

COBOL PARA MICROCOMPUTADORES 
►Pr£tica de programap3o nos computadores da 
"Hardware" + apostila encadernada. 

ASSEMBLER ZILOGe INTEL 
(Z80 e 8085) 

►Pratica de programapao nos pomputadores 
ZHardware - Banana 85 - CP500 - TK83 - DGT100 



ATENCA0: INiCIO DE TODOS OS CURSOS EM ABRIL/85 
HARDWARE CURSOS - INDUSTRIA DE INTERFACES - ASS. TECNICA 
- C0MP0NENTES ELETR0NIC0S 
MARRECAS, 39/402 - Cinelandia - CALL (021) 220-5403 - RJ 



monSSHWAL K grande QUMJHCWIO 

MICR0C0MPUTAD0R 

MTS-IV 




0 MAIS RAPID0 DO MERCADO, 
FABRICADO POR QUEM FAZ A 
MELH0R MANUTENCA0. 
CONSULTE OS NOSSOS CLIENTES. 
AGORA TAMBEM 0 M0DEL0 
MTS/PC - XT 
DE 16 BITS. 



MAQUIS TECNOLOGIA E SISTEMAS LTDA 



Rio de Janeiro 
Av Bar3o de Tete 7 GR 501 /08 
Telefone 263 3330 
TWX (021)30354 



MAQUIS 

S3o Paulo 
Av dos Imares 999 
Telefone 543 3511 
TWX (011)21299 














SOFTWARE 



• Prog ram as p/Apple — os me- 
I hones do mercado intemacional 
- 1.000 tftulos - Cr$ 25.000 
disco cheio — Alfamicro — CX. 
Postal 21193- S. P. 

• Vendo jogos nac. e imp. p / 
TK 85, CP 200 e linha Sinclair: 22 
jogos de 16K por 15 mil. Cx. Pos- 
tal 529 - CEP: 09500 - S. C. do 
Sul -SP. 



• Vendo ou troco soft p/CP- 
300 e similares. Tratar c / Ivan - 
Rua Joao Barcelos, 40 - Itamara- 
ti - Petrdpolis - RJ. CEP: 25600 - 
Tel.: (0242) 42-5516. 

• Micro 6 movido a programa da 
Microlove. Reabastepa o seu Sin- 
clair e TRS-80 com nossos pro- 
gramas. Pepa I ista q tel . : (011) 
448-4372. 

• Progs. p/Sinclair: 10 & escolha 
p/1 ORTN. Jogos in^ditos e em 
alta resolupao: Pack Rabit, Qbert 
Burgertime, Valkirie, etc... A. M. 
Brito - SHIN Ql - 13 Cj. 4/Cs. 4 
CEP: 71500- Brasilia -DF. 

• ZX Spectrum: programas ori- 
ginal ingleses, livros, revistas - Bar- 
bosa - Cx. Postal 31.052 - RJ - 
CEP: 20732. 

• Troco programas (Basic/As- 
sembler) p/Tks, CP. carta/K-7. R. 
F. Francisco Sampaio, 180 - San- 
tos-SP. - CEP: 11100 - Tel.: 
(0132) 380884 — Roberto. 

• Vendo e troco programas Sin- 
clair TRS-80, pepa catSlogo. Os- 
valdo Alencar - Av. Gentil Bitten- 
court, 124/1.301 - BelSm - PA. 
CEP: 66000. 

• Soft p/TK e CP. Lista gratis - 
FM Software - Cx. Postal 85 - 
Tatuf - SP, ou R. Proenpa, 311 - 
J. Proenpa - Campinas. 

• Vendo 55 jogos p/60 mil li- 
nha Sinclair. Leonardo - Av. Ber- 
nardo V. de Melo, 3.481/021 - 
Piedade - Jaboat£o - PE. Tel.: 
(081) 361-0292. 

• Apple & Compatfveis progra- 
mas e manuais — Solicite listas - 
Dominio POblico Soft & Man - Cx. 
Postal 201 - S. Bernardo do Cam- 
po -CEP: 09700 -S. Paulo. 

• TK 85 e compatfveis. Progra- 
mas indditos. Pepa relapSo pelo 
correio. Bonisoft - Av. Paula e 
Souza, 422 - Maracan# - Rio - 
RJ. CEP: 20271. 



• TRS 80 Color - Troco progra- 
mas. Raul Horter. Cx. Postal 46 - 
Campo Bom - RS. CEP: 93700. 

• Topografia: Soft para cSIculo 
analftico de £rea para Sinclair (300 
estapdes). Com Ricardo - Rua Sil- 
va Jardim, 1.953 - ap. 702 -Santa 
Maria -RS. CEP: 97100. 

• Atenpao usuSrios dos micro- 
computadores, TK, Apple, esta- 
mos comercializando programas 
de alta qualidade, entre eles, para 
linha Apple estSo o famoso edi- 
tor grSfico The Print Shop, Janela 
MSgica II, e os incrfveis progra- 
mas: Visicalc, DBase II, Visi File e 
jogos como Skay Fox (tridimen- 
cional), Wolfenstein II e muitos 
outros que voce nem pode imagi- 
nar. Para a linha TK temos: Sinte- 
tizador de Voz, Zaxxon, Polares 
e muitos mais (130 tftulos). Es- 
creva para Lumen Soft — Rua Li- 
cinio Leite Machado, 59 - Santa- 
na - Sao J. dos Campos - SP. - CEP 
12200. Ou ligue para (0123) 
22-0420. 

• Pacote de c£lculo num^rico 
para linha Sinclair. Fita com 18 
programas, incluindo: Sistema Li- 
near, Inversao de Matriz, Autove- 
tores, Sistema Nao- linear, Calcu- 
lador de Fdrmulas, Zeros de Fun- 
goes, RegressSo Linear, Interpola- 
pafo, Integral, S6rie de Fourier, 
Gr^fico de f(x). Superficies, Cur- 
vas Param§tricas, Transformapdes 
no piano complexo, Equapoes di- 
ferenciais ordinSrias (com grSfi- 
cos). Acompanha manual. Prepo 3 
ORTN. Envie cheque nominal a 
Luiz Henrique Duczmal - Rua Ja- 
va, 186 - Nova Sufpa - Belo Ho- 
rizonte - MG. CEP: 30000. 

• Programas para Apple: aplica- 
tivos, utilitdrios, compiladores, 
linguagens e jogos. Tel.: (021) 
239-0449 -Stela. 



DIVERSOS 



• Vendo monitor de vfdeo pro- 
fissional PH Verde 24 MHZ de 
banda passante para Apple ou CP 
300, prepo 850.000 - Tratar com 
Luiz, tel.: (011) 208-2176. 

• Vic Commodore manutenpao 
s6ria, mil soft, manuais em portu- 
gues, cabos, capas, interface K7 e 
RS 232 para CBBS e projeto Ci- 
randffo, manuais tdcnicos para 
Epson, TRS 80, conectores, etc. 
Barto Computadores - Tel.: (021) 
262-1213 - Av. Nilo Pepanha, 
50/2.407- Rio. 

• Vendo placa 80-Col. p/Apple 
lie. Tratar com Armando, tel.: 
(0132) 36-6208. 



• Instalo gravadora de memdria 
EPROM (2716-2732) nos micros 
da linha Sinclair, permitindo c6- 
pias de outras mem6rias ou gra- 
vap£o de dados da memdria. 
Adapto tamb^m expansao de 8K 
(4K-Eprom e 4K-RAM). Tratar c/ 
Jos6 Carlos. Tel.: (011) 220-4061. 

• Alta resolupao — Projeto com- 

pleto (Hard/Soft) para linha Sin- 
clair (TK, NE, CP). Montagem 
facflima de baixo custo (- 1,5 

ORTN). Cheque Cr$ 15.000 no- 
minal para Nilton Cazzaniga Jr. 
Rua Josd Pedro Cosenza, 377 - 
Itatiba-SP-CEP 13250. 

• Manuais em portugues para 
micros e perif6ricos Commodore. 
Escreva para W. Belo, R. Itamara- 
pa, 47 - D. Caxias - RJ ou tel.: 
(021) 771-6889. 

• Sensory Chess Challenger 9, 
em bom estado. Prepo era aberto. 
Contatos h noite com Italo, tel.: 
(011) 533-6671. 



CURSOS 



• BENNY Curso de Basic Indivi- 
dual em 5 pagamentos. C/rodf- 
zio de computadores das linhas 
TRS-80, Apple e Sinclair, qual- 
quer idade. Tel.: (011) 570-1555. 
Metro Arosa. 

• Mumps — A Matrix promove, 
mensalmente cursos de Mumps. 
Rua Maestro Elias Lobo, 70. CEP: 
01433 - SP. Informapoes (011) 
64-0688. 

• A MIKROS est3 promovendo 
regularmente cursos de Introdu- 
pao ao Processamento de Dados, 
Basic e Basic Avanpado, nos 
seguintes hor£rios: segunda, quar- 
ta e sexta, das 10:00h as 1 1 :00h, 
14:30h as 15:30h e 18:00h as 
19:00h, durap§o de 3 meses, total 
de 36 horas, sendo que a maior 
parte das aulas sera pr4tica. Melho- 
res informapOes Av. Ataulfo de 
Paiva, 566 - sobrelojas 21 1 e 202 - 
Rio - RJ. Tel.: (021) 239-2798 ou 
511-0599. 



• PALESTRAS: Palestras gratui- 
tas sobre Basic, CP/M, DBase, 
Visicalc e Wordstar na People 
Computapao. Av. N. S. Copa- 
cabana, 1.417, loja 313, tel.: 
(021) 521-1549. 

• O Instituto de Tecnologia 
ORT, esta para o mes de abril 
com inscripdes abertas para os se- 
guintes cursos: Microcomputado- 
res para Usu£rios, Microcomputa- 
dores para Programadores e Ana- 
listas e Microcomputador na Edu- 
capao. InformapQes e inscribes a 
Rua Dona Mariana, 213, tel.: (021) 
286-7842 - Rio de Janeiro - RJ. 



• A Datamicro esta com inscri- 
bes abertas para os seguintes 
cursos: Microcomputadores para 
crianpas (8 a 14 anos), M6dulos 
I, II, III com 12 horas cada, Pro- 
gramapcfo Basic I (28 horas) e 
Avanpado (20 horas), Linguagem 
de Maquina para o TK (20 horas), 
Micro Aplicado ao Caiculo Estru- 
tural (20 horas). InformapSes Rua 
Visconde Piraja, 547, s/211 - Ipa- 
nema - Tel.: (021) 511-0395. 



CLUBES 



• Petroclub — Escreva enviando 
anexo 2000 mil e receba imediata- 
mente jogos e programas para a 
linha Sinclair ou TK 2000, e en- 
vie tamb6m detalhes do seu mi- 
cro. Rua Sold. Hercilio Tardeli, 
152 - Petropolis - RJ. CEP: 
25600. 



EQUIPAMENTOS 



• Vendo TK 85, 48K, alta reso- 

lupao, safda p/ monitor, 2 grava- 
dores. Joystick e 170 programas. 
Eugenio Betanho, tel.: (011) 

64-7074 -Sao Paulo. 

• Micros usados compro, troco e 
vendo. BENNY. R. Domingos de 
Morais, 407, CEP: 04009 - Tel.: 
(011) 570-1 555. Metr6 Arosa. 



PARA ANUNCIAR NESTA SEQAO 
ESCREVA PARA: 



Av. Presidente Wilson, 165/Grupo 1210 
Centro — Rio de Janeiro/RJ — CEP 20030 
Tels.: (021) 262-6306 
Rua Oliveira Dias, 153 — Jardim Paulista 
Sao Paulo/SP — CEP 01433 — Tels.: 

(01 1) 853-3229 
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MICROCOMPUTADOFfcCOLOR 



V'OCfcTEM QUE ESTAK PKXPARADO 
E’AKA St; 0ESEIW0LVER COM OS 
N0Y0S TEMPOS QUE ESTAG AJ, E0 
CP 400 COLOR E A CHAVE DESSA 
EVULligAO PEffiAL E PROFLSSIONAL 





POftQUH? 

POWJUEO 
CP 400 COLOR £ 

UM COMI’UTADOR 
PESS0ALDE 
TEMPO IM’ECjRALi 
Cmi, PARA A 
FAMILtA TODA, 0 1)1 A INTBRD. 

NAH0RADESEIMV3m8,PQR 
EXEWROjMllTOMAISEXWClO 
NANTE PORQCE, ALEM DE OHiRECEK 
JOGOS INEIHTOS. K0 l!NHX> COM 
2 JOYSTICKS AN AUKilCOS HE ALTA 
SENSIBiLIDADE, QUE FBMTEM MO* * 
VtMKSTAR AS 1MAGENS E%S T0DA5 
AS IflREQto, MFSMO. NA KORA 
DE TKAiSAl.il AX F. ESTUDAK.O U J 400 
COLOR MOSTRAO SEU LAW SPRIG: 
MF.MOMA KXPANSlVRL, PORTA PARA 
GOMUNOQAO DE MXfi. SAlDA 
I’AKA SMI’KESSONA, E LIMA OTIMA 
NODEZ COM LMAGENSCOI.OKIDAS. 

OOMOSETUDOISSO NAO 
ISASTASSfi, A PKOIjOGICA ALNUAGFE- 
KI5CE A (pAXANTIA DE QUALIDADE 
DF.QUEM f', LIDEK NA TECNOIAXHA 
l)F,aLMPlTADOKES|EO PRKQO 
MAIS ACKSSEMl \A CATEOOKIA 

NUMA FRANK: SE VOCE NAtJ 
QI.ISER (JiEGAR ATKASADO A0 El 
n)i«LaftiPRESEua i «oaju)R 
IMEIWATAMENTE, 

F.AlOQiO E IN I EI.IGfeVCIA IYUIW 
fjQUIPAMEHTOSfi. 

• MICROPRtmSADOH: s^HlE COM 



EsmTURA INTERNA DE 
16 BITS E CLOCK DE f REQUfNCIA 
IH- Alt 1.6 MHZ. 

• P0SSIHUTA0 US0 [)E ATE 

9 aHiES. E TEM UMA RESOUJQAO 
QiAFICA SUPERIOR A 49.00G 
KiNTOS. 

• MEM0R1AR0M: KiK DTI'I^ 

PARA A OPERAS ION ALE 
INTERPRETADOR BASIC. 

• MEMORY RAM: 0 CP 400 count 
ESTA IHSPONIVTI. EM [KUS M0W3j(JS: 

* MODFJL) I6K: 
KXPANSIVEt, A 
64K BYTES. 

* MODEM) 64fc 
Alt 64K BYTES 
QUANDOI-SAIX) 
COM 0 NOVO 
DISK-SYSTEM, 

CP 450. 

• 0 CPAfK) COLOR DJSPOE DE 
CARTUOIOS DE PROGRAMAS COM 
m BYTES DE CAHOMDE, 

QUE PERMHEM OCARREGAMENTO 
Itel'ANTASEO DE JOGOS, 
UNGUAGENS E AlltCATlYOS COMO 
liANmDEEMlXJS.PUNIIJlAS 
DECAIjCIJIjO. EDrrORES DETEXTOS 
Al 'IJCAlTYOS HNANCEI ROS. 
APUCATD'OS GRAtttXJK.ETC- 

• SAIDA SERIAL RS 232 CQUE 
PERMITE COMUNICAQAO DE DADOS 
AI.EM DO QUE, ATRAVES DESTA 
IViRTA. VOCE PODE GONEO'AR 



Qt AJ.QIT.H IMPRESS! >KA SERIAL 
Ot: ATEMESMO 
PORMAR UMA 
REDEDETKADA 
mo COM 
OUTROS MICROS 

• PORTA PARA 

gravadorcas- 

SETE COM GRAVAQAO E LEITUEA 
DE Al.TA VEI.OCIDADE 

• SAIDAS I’AKA TV EM CORES E MONI- 
TOR PROFESSIONAL 

• 1)1 'AS ENTRAUAS PARA JOYSTICKS 
ANALOC1COS QUE OEKKECEM 
INFINITAS POSigOESNATEU, 
ECQUAJrrO OUTROS TtM SDMENTE 
RDJRKQOES. 

• AMPLA BMUOTECA DE SOFTWARE 
JA DlSPONfVEL. 

• AIJMENTAQAOr 110 220 VOLTS. 

V0A. TESTE ECOMPRE 
SEU (if’ 400 COLOR KOS MAGAZINES 
E REVTNDEDORES I’ROLOGICA. 



TECNOLOGIA ■■■ 

PROLOGtCA ■■■ 

■■ 




COMPUTAQORES PE&SOAIS 

HIM PTCXOiUf U. V-A vU.A$QGQHm 
SAD MULG. 5P ■ -CfP 
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QUEM TEM UM.TEM FUTURO. 








Apresentamos o 

TK 2000 n. 

Ele rada o r programa 
mais famoso 
do mundo. 

Oe hoje em diatne nenhuma 
empress, par menor que seja, pode 
dispensar o TK 2000 II. Por que? 

0 novo TK 2000 II node o 
Muliicalc:a versaa Microsoft da 
Visicalc* o programa mais famoso em 
todo o mundo. 

Isro signifies que, com ele. voc§ 
conirola ostcques, Gustos, contas a 



pagar, far sua programacao financeira, 
efetua a folha de pagamentos e 
administra minute a minuto as suas 
atrvidades. 

Decalhe importame: o novo 
TK 2000 II, com Mufticalc, pode 
intercambiar planilhas com 
eomputadores da linha Apple” 

E, como todo business computer 



quo se preza, ele tern teclado 
profissional, aceita monitor, diskette, 
impresses e j6 vem com interface. 

Algm de poder ser ligado ao seu 
televisor (cores ou P&BI, oferecendo 
some imagem da melhar qualidade, 

Ponanto, peca logo uma 
demonstracao do novo TK 2000 II, nas 
versoes 64K ou 128K de memoria. 

A meis nova estrela da show 
business so espera por isio para 
esrrear no seu negdeio. 

Pre^o de lancamento* 1 128 Kl: 

CrS 2.649.850 

/VUCRODIGTML 

compu t adores pessoais 





SujErm a aheta^Q sum pr&ig 



$ Mars* isirtifa da Visitora ftlisda n A8JC0HP $ Marca teyisvate da Computer. 





